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SUMMARY 


A theoretical wing-jet interaction theory is presented for predicting 
the ground effects for upper-surface-blowing configurations. The formulation 
predicts the variation of circulation forces and jet reaction forces in ground 
proximity as a function of ground height. The predicted results agree well 
with available experimental data. It is shown that the wing-alone theory is 
not capable of predicting the ground effect for USB configurations. 
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1. List of Symbols 


A 

b 


c 

c 


c 


D 


c 4 

°L 



D 

e 

h 


h 


1 


h’ 


,j.k 


4 


c 


M 


n,s 

n 

s 

c 

T 


u,v,w 


V 


x,y,z 


z 

c 


aspect ratio 

span 

chord length 

mean aerodynamic chord 

drag coefficient 

sectional lift coefficient 

lift coefficient 

lifting pressure coefficient 

propulsive thrust coefficient 

jet momentum coefficient 

equivalent jet diameter 

ground height of wing aerodynamic center 

ground height of mean surface on which the vortex 
is distributed. 

ground height of USB flap hinge 

unit vector in the x, y, and z directions 

characteristic jet length which is assumed to rotate 
rigidly in ground proximity 

Mach number 

coordinates normal and along the jet surface, respectively 


unit normal vector 

length of the approximately straight portion of the jet 


induced velocity components in the x,y, and z directions, 
respectively . 


velocity 

rectangular coordinate system with positive x-axis pointing 
downstream, positive y-axis pointing to the right and positive 
z-axis point upward. 


camber ordinate 
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a angle of attack 

5 f flap angle 

5 jet deflection angle out of ground effect 

j 

6' iet deflected angle in ground effect 

J 

Y vortex density or flight path angle 

X taper ratio 

A sweep angle 

V = V /V. 

“ 3 

p' = p cos a 

$ nondimens ional velocity potential 

ip nondimensional additional velocity potential due to jet interaction 

p density 

0 pitch attitude angle 

Subscripts 

G ground effect 

1 image 

j jet flow 

o external flow 

w wing 

wj wing flow with jet Mach number 

wo wing flow with frees tream Mach number 

r circulation 

® freestream or free air 
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2. Introduction 


Recent investigations of ground effect on aerodynamic characteristics 
have been stimulated by the interest in powered-lift STOL airplanes. Gratzer 
and Mahal (Ref. 1) have concluded from analyzing experimental data and theore- 
tical study that the powered-lift ground effects will generally be adverse, 
i.e. with substantial lift loss. Early wind-tunnel data on augmentor wing 
and extemally-blown-flap (EBF) configurations have also indicated adverse 
ground effect. However, the opposite has been found from flight tests of 
Augmentor Wing Aircraft C-8A and EBF aircraft YC-15. This disagreement of 
wind-tunnel and flight data has prompted Campbell, Hassell and Thomas (Ref. 2) 
to examine carefully the wind-tunnel data. They found that most of the dis- 
agreement could be traced to the wind-tunnel models which were not representative 
of the aircraft in wing sweep, taper ratio, flap angle, etc. and to the different 
operating lift coefficients. When a correct YC-14 model with upper-surface 
blowing (USB) was tested, generally favorable ground effect has been obtained, 

except at high angles of attack (Ref. 3). 

In an effort to study theoretically the ground effect of the jet flap and 
EBF configurations, Gratzer and Mahal (Ref. 1) employed the conventional vortex- 
lattice method with flat wake to simulate the wing circulation lift. They in- 
dicated that if the jet reaction lift is less than 30% of the total lift, the 
wing— alone method of ground effect analysis without directly representing the 
jet is valid. Stevens and Wingrove (Ref. 4) used a simple horseshoe vortex to 
predict the ground effects of augmentor wing C— 8A and EBF aircraft YC— 15 and 
found that the predicted increase in lift in ground proximity is generally less 
than that obtained from flight tests. An accurate 3-D thin jet flap theory was 
presented in Ref. 5. Some ground-effect calculations using that theory was 
given in Ref. 6, The predicted list is in general higher than the experimental 
values. No theoretical methods for USB configurations in ground effect are 


available, however. 
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The main purpose of the present investigation is to extend the USB 
jet-wing interaction theory reported in Ref. 7 to treat the ground effect 
problem and to present some calculated results. 

3. Theoretical Formulation 

For the present analysis, the basis assumptions made in Ref. 7 are still 
valid. That is, 1) the unperturbed jet flow and freestream are uniform, and 
the perturbed flow field in each region is governed by the Prandtl-Glauert 
equation with Mach number M q or M ^ , for the freestream and the jet flow, 
respectively; 2) the jet is of constant shape and at a small deflection angle; 
and 3) the effects of fuselage, nacelle, and wing thickness are not included. 

The boundary conditions require that the jet surface be a stream surface and 
the static pressure be continuous across it, in addition to the usual wing 
surface tangency condition. To account for the difference in and , the 
linearized problem is regarded as the sum of the wing-alone flow field and the 
additional flow field due to jet interaction. The aforementioned boundary 

conditions jet stream surface condition, jet surface static pressure continuity 

and the wing tangency condition, in the linearized form in free air, are given 


by, respectively (see Ref. 7), 

V*Tt ( 1-yA') ^4W _ 2 . jgP 

"3 tv 'bn ~~ V 0 - e 0r * ^ ' n (1) 


2jv 

^ S 


- t(a’) x 


n> s 


2jv 

s ~ 


TO')* 


“3S 


(2) 



(3) 


where the subscripts (o,j) denote the outer flow and the jet flow, respectively. 


tj; is the additional nondimensional velocity potential due to jet interaction and 

<}> the wing-alone velocity potential, V Q is the freestream velocity vector and 

(n, e) the unit vectors normal and along the jet surface, respectively. With 
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shallow jet approximation, n = k and e = i. 
In addition. 


p! = JJL cos C< 


( 4 ) 


^ * V ~ / V } 


(5) 


In Eqs. (1) and (2), $ wq and $ are the wing-alone velocity potentials 
satisfying the wing surface tangency conditions: 


-Z z 


!>Z C 

■a x 


+anO< 


"a z 




( 6 ) 

(7) 


The above problem has been solved with the vortex distribution on wing and 


jet surfaces through the quasi-vortex-lattice method (QVLM) (Ref. 8).. The 
jet flap effect within the present thick- jet formulation and the Coanda jet 
reaction forces have also been included (Ref. 7). The total aerodynamic 
characteristics are obtained through integrating the calculated pressure 
distribution. 

In ground proximity, the additional boundary condition of no flow-through 
at the ground plane can be satisfied by using image vortex distribution with 
opposite circulation as illustrated in Fig. 1. In Fig. (la), the 




(a) 


(b) Mean Surfaces 


Figure 1. Geometry and Vortex Distribution in Ground Proximity 6 



ground height h is assumed to be measured from the wing aerodynamic center 
or some reference point. Fig. (lb) shows that in the present linearized 
theory, the location of the wing mean surface is taken to be at h^, where h^ 
is the ground height of 3/4 chord point of the mean aerodynamic chord for 
clean configuration as indicated in Ref. 9, and is taken to be the ground 
height of the trailing edge of the mean aerodynamic chord for configurations 
with flap deflection. latter choice is to account approximately for the 

larger wake deflection associated with flap deflection. The induced velocities 
on the wing and jet surfaces due to the physical wing and jet vortices are 
calculated in the usual manner as shown in Ref. (7). The effects of the image 
vortices are twofold. Firstly, they will induce upwash on the physical wing 
and jet surfaces. Let v t be the velocity vector induced by image horseshoe 
vortices at a given point on the wing: 

% = + ivr. ( 8 ) 

As shown in Fig. (la), the unit normal vector on the wing surface is given by 

A A ^ 

r\ = l sin 9 + c,os 9 (9) 

It follows that the upwash induced by the image vortex is 

— W, cos 8 + U. sin 9 Wv + it- 9 (10) 

Although UjO is a second-order term, its retention improves the accuracy 
(Ref. 9). As can be seen from Fig. 1, this backwash term u ± 0 is to produce 
downwash on the wing if 9 is positive, thus reducing the loading. This is 
consistent with the 2-D solution given by Woods (Ref . 10) : 

c j? - *Trsm<* £ i - C^-)sinc< + 3 

where the second-order term in a is to reduce the lift coefficient. In Eq. (11), 
a inside the brackets is the same as 6 in the present formulation. Flight test 
results also indicate the same trend (Ref. 4). Eq. (10) is to be incorporated 
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into the left-hand side of Eqs. (1) and (3) and also the wing-alone problem 
Eqs. (6) and (7). Similarly, the image-induced x-perturbation velocity 
will be included in Eq. (2). Note that only *? . ^° j> an< * 

are affected by the image vortices. Secondly, the image wing and jet vortices 
will induce backwash on the wing to reduce the freestream velocity. Thus, 
once the vortex strengths have been calculated by satisfying the boundary 
conditions with ground effect, the lifting pressure will be given by 

= 2 4 a>So < C I + Ui) (12) 

where u^ is the backwash induced by the image vortices and is usually negative. 

The wing vortex density y w is the sum of wing-alone vortex density and the 
additional vortex density due to jet interaction. The term involving u ± in 
Eq. (12) is again a second-order tern. 

The special features described above for the ground effect are concerned 
only with wing circulation loading. Examination of some available USB force 
data (Ref. 11) indicates that the lift component of the jet reaction will be 
decreased as the aircraft approaches the ground. This implies that the USB 
jet deflection angle will be reduced if the ground height is small. This 
possibility has also been suggested by May and Bean (Ref. 3). The fundamental 
idea behind this concept is that as the nearly rectangular jet impinges on the 
ground, the increase in the upstream static pressure would force the jet to 
deform further in the downstream direction. Since the jet deflection angle is 
not constrained in the USB case, it would be decreased to accommmodate the stronger 
jet-cross flow interaction in ground proximity. Since the exact theory for 
this phenomenon is certainly complicated and is not available at the present time, 
the following empirical theory will be used for the present purpose. 

Because of the similarity between the present case and a round jet in the 
cross flow, Margason’s formula for the round jet trajectory (Ref. 12) will be 


used as a first step: 


/ Z f 




2L 

3 > 


(13) 
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Differentiating Eq. (13) with respect to z gives 

*<*/>) = _ col S', 

d (z/j>) 4 s'ni^ 2 


( 14 ) 


where T = S / §• .At this point, it is assumed that the jet possesses 

a characteristic length. When it touches the ground, the reduction of the jet 
deflection angle becomes possible. This characteristic length will be calculated 
as follows. First, the two terms on the right hand side of Eq. (14) are 
equated and solved for z which will be denoted by z’ c . Note that the first term 
represents the effect of cross flow interaction. Thus, 


I | / 2. f Stn 2 5^' 

I 3> I VTv (15) 

When this expression is used to check against the experimental data on a 
round jet, see for example. Fig. 12 of Ref. 13, it indicates approximately the 
straight portion of a deformed jet. However, Eq. (15) shows that at 6^ = 90 , 
the straight portion of the jet will vanish. This is not so according to the 
experimental data. Therefore, Eq. (15) is to be adjusted for correct representa- 
tion at 5^ = 90°. In addition, two more assumptions are made. First, the 
characteristics of the USB jet for the present purpose, i.e., y and T, will be 
evaluated at the USB flap hinge, and will be denoted by y and T. They will be 
obtained by the method shown in Ref. 14 for a turbulent round jet. The diameter 
D in Eq. (15) is taken to be the equivalent round jet diameter D e at the USB 
flap hinge. Second, Unlike a round jet in a uniform cross flow, the USB jet 
is subject to the interference of wing flow field and the uniform freestream. It 
is assumed that the jet angle to be used in Eq. (15) is the average of 6^ and 6^ + 
o<., to be denoted by <5^ : 

•si S' + (16) 

3 3 

Accounting for the above assumptions, Eq. (15) becomes 


\lL\ = /Z /°- (35 4 Sl'nzff,. (17) 

I > I * 3 y t 
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where the constant 0.135 is obtained by correlating with the experimental 


data shown on Fig. 12 of Ref. 13 with 6.. = 90°. The length of the approximately 
straight portion of the jet is therefore given by 



When a length of jet equal to sc is assumed rigid and, if it touches the ground, 
would be forced to rotate in the downstream direction to reduce the jet angle, 
it is found that the results are quite reasonable except when y is small, i.e. 
when the freestream velocity is low compared with the jet velocity. This can 
be seen from Eqs. (17) and (18). For small y, z r c and s c would be large. For 
a given ground height, the resulting jet angle would be small. Therefore, the 
characteristic length mentioned above will be defined as 


= S e 

(19a) 

= , C iy u* * • 

(19b) 


where is a constant to be determined after correlation with experiment. (Ci 
is finally chosen to be 19.2). The jet deflection angle 6'j in ground proximity 
is then given by 

S-+ & = (20) 

where h* is the ground height of the USB flap hinge. Of course, if £ c does not 
reach the ground, the jet angle is assumed to be unchanged. The corresponding 
geometry for Eq. (20) is illustrated in Fig. 2. 



Figure 2. Geometry for Determining the Jet Deflection Angle 
in Ground Proximity 



4. Numerical Results and Discussions 


As indicated above, the present formulation is based on the quasi-vortex— 
lattice method. To check its accuracy, some predicted results for lift curve 
and moment curve slopes for rectangular wings are compared with Saunders' 

(Ref. 15) in Fig. 3. Saunders' method is based on the kernel function technique. 
It is seen that the agreement between the present method and Saunders' is quite 
good. The theoretical results also agree quite well with experimental data 
given in Ref. 16. Since the operation of aircraft in ground proximity usually 
involves the deflected flaps, their influence on the magnitude of the ground 
effect must be assessed. Gratzer and Mahal (Ref. 1) have presented some results 
showing the influence of various configuration parameters on the aerodynamic 
characteristics in ground effect. Fig. 4 shows the comparison of the present 
results with Gratzer and Mahal's for a tapered wing of aspect ratio 8.0 and 
sweep angle 30°. Note that the conventional vortex-lattice method was used 
in Ref. 1. It is seen that the agreement between the two methods is good. 



Figure 4. Comparison of Predicted Lift Coefficients in Ground 

Effect by Different Methods. C Lo =3.o, A=30° , X=0.4, A=8.0, 
6^=50° (Full Span) and Flap-Chord Ratio of 0.35. 








The present thick-jet program is also applicable to the thin jet flap 
theory with appropriate changes as indicated in Ref. 7. Some predicted 
results for a full-span thin jet flap on a rectangular wing of aspect ratio 
8.3 are compared with those given in Ref. 6 and experiment (Ref. 17) in Fig. 5. 
The agreement between theories is excellent. However, the experimental data 
* show large adverse ground effect not predicted by the theory. Although some 

flow mechanisms responsible for the discrepancy have been discussed in Ref. 6, 
one important possible reason, is that the experimental data are not reliable 
because a fixed ground plane was used in the test set-up. According to Turner’s 
criterion discussed and applied in Ref. 2, a moving ground board would have to 
be used under the high lift conditions investigated. 



Figure 5. Comparison of Predicted Ground Effect for a Rectangular 
Wing of A = 8.3 with Full-Span Thin Jet Flap. 

C = 3,0, a = 0°, 6. = 55°. 
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Published data for USB configurations in ground effect are scarce. 

Some YC-14 data are given in Ref. 3. These data are for a complete configuration 

including the fuselage and horizontal tail which are not modelled in the present 

program. Since the actual jet deflection angle 6^ in free air is not available, 

and since the correct free-air is important in predicting the ground effect, 

6. is taken to be a value so that at a=2°,the lift coefficient in free air will 

J 

match as closely as possible the experimental value. This is based on the assump- 
tion that at a =* 2°, the tail contribution to the total lift is small. Using 
the data at a = 2° with = 2.0 in landing configuration for correlation to find 
the constant in Eq. (19. a), it is found that C 1 = 19.2 will provide the best 
over-all results. The predicted lift curves are compared with experimental data 
in Fig. 6 for the YC-14 landing configuration (thrust recovery efficient n = 0.9) 
and Fig. 7 for the takeoff configuration (n = 1.0). It should be noted that the 
theoretical is obtained by adding the predicted incremental Cj^ due to ground 
effect to the experimental free-air values. It is seen from Fig. 6 that the 
predicted ground effect for the landing configuration agrees well with experi- 
ment. For the takeoff configuration in which the USB flaps are retracted, the 
ground effect at (L ■ 1.0 is underpredicted by the theory. 

Another set of available USB ground effect data is given in Ref. 11. The 
predicted results are compared with the experimental data in landing configura- 
tions in Fig. 8. The free-air deflection angle is taken to be 42°. Also shown 
in Fig. 8 is the dashed curve predicted by the QVLM without the jet. In the 
latter case, the angle of attack is taken to be such that the free-air C L can 
be correctly obtained and the jet reaction lift is assumed to be unchanged from 
the free-air value. It is seen that the present USB theory predicts the ground 
effect quite well. According to the theory, the jet deflection angle starts 
to be reduced at about h/b =0.3 and the decrease in lift is mainly due to this 
reduction in jet deflection angle, which, of course will slightly affect the 

circulation lift also. The wing-alone method, which has been used in Refs. 1 

14 
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Figure 6. Comparison of Predicted Lift Curves with Experiment 
for YC-14 Landing Configuration in Ground Effect with 

h/b=0.187. 


15 





0 2 4 6 8 10 12 14 

a - Degrees 

Figure 7. Comparison of Predicted Lift Curves with Experiment 
for YC-14 Takeoff Configuration in Ground Effect with 
h/b=0.187. 
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and 4 to predict the ground effect of the external-blown flap and augmentor- 
wing configurations, is seen to be incapable of predicting the ground effect 
of USB configurations. As shown in Fig. 9, the wing-alone theory does not 
predict the large increase in circulation lift predicted by the USB theory 
when the ground is approached. In addition to the difference in circulation 
distribution, one important mechanism is that the USB theory predicts less 
backwash on the wing due to the image vortex system. This is illustrated in 
Fig. lb. As usual, the image wing vortices will induce backwash on the 
physical wing. However, the image jet vortices will either induce backwash 
(from surface 2) or increase the longitudinal velocity (from surface 1) . In 
general, the effect of jet surface 1 is dominant because it is closer to 
the physical wing and the vortex strength is much larger. Therefore, the 
net backwash due to the image vortex system for the same free-air C L is re- 
duced. 



h/b 


Figure 9. Comparison of Circulation Lift In 

Ground Effect Predicted by USB Jet Theory 
' and Wing-Alone Theory for the Configuration 
of Figure 8. 



The conclusion from the results presented above is that for a given USB 
configuration with a given thrust coefficient, the important parameters affecting 
the lift in ground effect are the pitch attitude angle and the jet deflection 
angle in free air. Large angles of both may decrease the lift in ground proxim- 
ity. For given angles of both, there is a ground height at which the lift is 
maximum. 

In Reference 4, typical results for the Augmentor Wing Research Aircraft 
C-8A exhibiting dynamic ground effect have been presented. It is shown that 
the ground effect is slightly more positive in descending flight than in as- 
cending flight and there is an abrupt lift loss during the change of flight path. 
From the viewpoint of the present theoretical formulation, the phenomenon may be 
explained as follows. In descending flight, the pitch attitude angle for this 
aircraft is negative (Ref. 18) so that the backwash produced by the image vortices 
contributes to the upwash and hence, higher lift, as shown in Eq. (10) . The 
opposite is true in ascending flight, in which the pitch attitude angle can be 
more than 20°. Of course, the flap angle is also changed in the transition. If 
the time history of the pitch attitude angle and the flap angle is known, it 
may be possible to predict this dynamic ground effect based on the quasi-steady 
approximation. 

5 . Conclusions 

The ground effects on a USB configuration may involve changes in both the 
circulation forces and the jet reaction forces. In this report, a theoretical 
formulation to predict these effects has been presented. The predicted results 
agree well with available experimental data. The theory indicates that a 
positive pitch attitude angle will contribute to a reduction in lift. It is also 
shown that the .wing-alone method is not capable of predicting the ground effect 
of a USB configuration. 
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Appendix Instructions on the Usage of the Computer Program and Program 
Listing. 

The present computer program is a modified version of Ref. 19 by incorp- 
orating the ground effect calculation and the thin jet flap theory. Therefore, 
the program capabilities and limitations described in Ref. 19 are still applicable 
The input instructions are described in the following. 

The program is written in Fortran language and runs on CDC Cyber 175 
computer. It is available from COSMIC of the University of Georgia, Athens, ^ 

Georgia. 
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INPUT DATA FORMAT 


Group 


Group 


Group 


Note: 


. Format 13A6 1 card 

Any title identifying the cases to be run. 

. Format 4(6X, 14) 1 card 

ICASE Numer of cases to be run. 

NG = 0 if all cases have the same geometry other than 
the angle of attack. 

= 1 if new configurations or different freestream- 
jet velocity ratios are to be treated. 

ISYM =0 for a centered jet 
=1, otherwise. 

NGRD = 0 without ground effect. 

= 1 in ground effect 
$. Format 8F10.5 1 card 

Mach number of the freestream 
Mach number of the jet flow 

Freestream velocity divided by jet velocity. 

Jet static absolute temperature divided by freestream 
static absolute temperature. Assumed to be the same as 
ratio of freestream density and jet density. 

Angle of attack in degrees. 

X-coordinate of the wing L.E. at the jet centerline. 
X-coordinate of the wing T.E. at the jet centerline. 


AMI 

AM2 

VMU 

TEMP 

ALP 

XEL 

XET 


If the thrust coefficient is given, VMU may be computed as 


V. - 2C (S /2) 1/2 

-L = A { 1 + [1 + A - X r w - .- ] > 

V„ 2 A (P ./P m 
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VMU = V /V. 

00 J 

where , C^, = thrust coefficient 

S w = wing area used to define C T * 

A. - iet cross-sectional area 
3 

When the thrust coefficient is computed with the static thrust, the 
following formula for V^/V^ is preferred: 

V, C (S / 2) 1/2 

— L = r _I SL, l 

V 1 2A (p./pj J 

00 J J 00 

If the nozzle pressure ratio, p ,/p is given, the following isentropic 
relations may be used. 

Y-l 


» 2 rT - r [ ( -t L) T - 11 


T . 1 + ^ M 2 

2 00 


T 1 , Y-l m 2 

00 1 H — — M . 

2 3 


V M , 

— ^ = VMU = — — — 

V j M j T, 1/2 


(r) 


Group 4. Format 4F10.5 1 card 

HEIGHT Ground height of wing aerodynamic center. 

ATT Pitch attitude angle in degrees 

XAC x-coordinate of wing aerodynamic center or the 

reference point about which the ground height is measured. 

XHG x-coordinate of USB flap hinge. If the USB flap is not 

deflected, the trailing edge of the USB flap may be used. 

Note: The above four variables may be set to 0. if NGRD =0. 
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Group 5. Format 2(6X, 14) 5F10.5 1 card 

NFP Number of flap sections, including the jet span. 

A maximum of five flap sections may be input. 

NJP Numerical order of the jet span among the NFP sections. 

DF(I) Flap deflection angles in degrees for the flap sections. 

1=1, NFP 

Group 6. Format 8F10.5 1 card 

HALFSW One half of the reference wing area. 

CREF Reference chord 

TWIST Difference in angles of attack at the tip and the root 
in deg. Negative for washout. 

TWISTR Incidence angle of the root chord in degrees. 

XJ X, Y, and Z-coordinates of the midpoint of the jet cross- 

YJ section at the exit. 

ZJ 

RJ Jet radius. 

Note ; The last four variables are needed only for over-wing-blowing applicat- 
ions. They may be any non-zero numbers for USB applications, unless 
the rectangular jet is not on the wing surface and the entrainment is 
to be accounted for, or the ground effect is to be calculated. For 
the latter cases, these variables are used to define the equivalent 
circular jet. 

Group 7. Format 7F10.5 1 card 

TEANGL Trailing-edge half angle of the airfoil at the jet center- 
line in deg. For USB applications, it may be arbitrary. 
PTIAL = 0. for clean or full-span flap configuration 

= 1. for partial-span flap deflection. 

USB = 1. for USB applications. 


= 2. for thin jet flap theory 
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= 0 . 

for OWB applications 


CAMLER 

L.E. 

camber slope at the 

root leading edge. 

CAMLET 

L.E. 

camber slope at the 

tip leading edge. 

CAMTER 

T.E. 

camber slope at the 

root trailing edge. 

CAMTET 

T.E. 

camber slope at the 

tip trailing edge. 


Note: For USB applications, TEANGL may be any value. If the camber ordinates 

are to be read in, the leading edge and trailing edge camber slopes may 
be arbitrary numbers. 

Note : The following card must be omitted for OWB applications. 

Group 8. Format 4F10.5 1 card 

CMU Jet thrust coefficient 

DFJ Jet deflection angle in degrees at the trailing edge relative 

to the chord line. At small flap angles, it may be taken as 
the sum of flap angle and the airfoil trailing edge half angle. 

At large flap angles, experimental values should be used. 

XNJ = 0. if the entrainment is not to be accounted for. Usually 

this is the case if the jet is on the wing surface. 

=1. if the entrainment due to an equivalent round jet is to 
be accounted for when a rectangular jet is not on the wing • 
surface. 

DTEST = 1. if the USB jet deflection angle is to be modified by the 

program in ground effect. 

=0., otherwise. 

Group 9. Format 8(6X, 14) 1 card 

UC Number of spanwise sections. A natural way of dividing a planform 

into sections is to follow lines of discontinuity, such as edges 
of partial-span flap, jet boundaries, wing edge discontinuities, 
etc. NC is limited to 8. 
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Ml(l) Number of vortex strips in each spanwise section, plus 
one. 

. Minimum value for each is 3. Maximum for each Ml (I) is 31. 

1=1, NC The total number of spanwise strips is limited to 30. 

Group 10. 5(6X, 14) 1 card 

NJW(I) The numerical order of the flap and jet spans among 
1=1, NFP the spanwise sections. 

Group 11. 5(6X, 14) 1 card 

NW(1) Number of chordwise vortex elements in each chordwise section. 

NW(2) The planform is divided into chordwise sections according 

NW(3) to such lines of discontinuity as jet exit, flap hinge, etc. 

If there is only one section, SET NW(2) = NW(3) = 0. For 2 
sections, SET NW(3) = 0. 

ICAM = 1 if the camber ordinates of the airfoils are to be read in. 

dZ 

= 0, otherwise. In this case, the camber functions (— -j— — ) 
in close-form expressions are to be inserted manually into 
subprograms ZCR(x) and ZCT(X), the root chord and tip chord 
camber functions, respectively. 

IM Number of camber ordinates to be read in. (Limited to eleven) . 

Arbitrary if ICAM = 0. 

Note! Group 12 must be deleted if ICAM = 0. 

Group 12. Format 8F10.5 4 or 8 cards. 

XT(1, J) , J=1 ,IM Non-dimensional x-coordinates to define root camber. 

ZC(1, J) , J=l, IM Non-dimensional camber ordinates of the root chord. 

XT(2, J) , J=1,IM Non-dimensional x-coordinates to define tip camber. 

ZC(2, J) ,J=1,IM Non-dimensional camber ordinates of the tip chord. 

Group 13. Format 6F10.5 1 card for each wing section. 

XXL(l) x-coordinate of the leading edge of the inboard boundary chord 


of a given spanwise section. 
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XXT(l) x-coordinate of the trailing edge of the inboard boundary 
chord of the same spanwise section. 


YL(1) 


y-coordinate of the inboard boundary chord. 


XXL (2) x-coordinate of the leading edge of the outboard boundary 
chord of the same spanwise section. 

XXT(2) x-coordinate of the trailing edge of the outboard boundary 
chord . 


YL(2) 


y-coordinate of the outboard boundary chord. 


Group 14. Format 6(6X, 14), 1 card 

NNJ Number of jet sections. 

Note : The jet region above or on the wing must be divided 

into streamwise sections by following the divided planform 
pattern. It is important to start the jet sections always 
from the wing leading edge even if the jet exit is dovmstream 
of the leading edge. The only exception is when the jet exit 
is at the trailing edge. In this case, NNJ=1 and the jet 
section starts from the trailing edge. NNJ is limited to 4. 
NSJ = Number of jet circumferential strips minus one for a non- 

centered jet (always use odd numbers). 

= Number of jet circumferential strips on the half jet plus 
one for a centered jet (always use even numbers). 

NCJ(I), Number of streamwise vortex elements in each section. There 


1=1, NNJ 


should be NNJ numbers. For those jet sections above the 
wing, these numbers should agree with the corresponding 
numbers of wing vortices. See NW(1). NW(2), NW(3) in Group. 11. 


Note : Group 15 must be deleted for USB applications 

Group 15. Format 6F10.5 NNJ cards 
XXL(l) 


XXT(l) 
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YL(1) 


XXL(2) Coordinates of bounding chords of the jet section 

XXT(2) projected on the x-y plane. For definition, see Group 13. 

YL(2) 

Note : Group 16 is to be deleted for OWB applications. 

Group 16. Format 4F10.5 (4xNNJ) cards. 

XXL (I) Coordinates of the bounding lines defining the 

XXT(I) rectangular jet sections in USB applications. 

YL(I) They are the x-coordinates of the leading and 

ZL(I) trailing edges, the y-coordinate and the z- 

1=1,.., 4 coordinate of the bounding line. The 4 stream- 

wise edges of each section are defined in the clockwise 
order (facing upstream), starting from the inboard lower 
bounding line. There are 4 cards for each jet section. 

The jet section behind the trailing edge, (trailing jet 
section) , should be at least one local chord in length for 
thick jet applications and two local chord in length for 
thin jet flap theory. 

Note : If ICASE > 1 and NG = 1, Groups 3-16 are to be repeated. 

Group 17. Format F10.5 (ICASE-1) cards 

ALP angles of attack in degrees. These cards are to be included 

only if additional angles of attack for the same configuration 
and VMU (NG=0 ,NGRD=0) are to be run. 

Note : The read statements for the input data in group 3 thru group 16 can be 

found in subroutine "GEOMTY" of the program listing along with a short 
definition of the parameters to be read in. The read statements for 
groups 1, 2, and 17 along with the corresponding parameter definitions 
can be found near the beginning of the program listing in the main 


routine. 
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Pre-Run Check List 


Before the program is run, the following checklist should be completed: 

(1) The array, GAMMA, defined in the subroutine n SOLUTN" , should be 

2 

dimensioned to have at least (N+l) /4 elements, where N is the 
total number of unknowns (= LTOTAL) . 

(2) For N = 260, the minimum memory needed is 40K (decimal). For any 
other N, the required memory can be computed accordingly, based on 
the change in GAMMA, array. 

(3) The root and tip camber slope functions should be defined manually 
in the subprograms ZCR(X) , ZCT(X) respectively; otherwise the root 

and tip camber ordinates should be read in. The camber slope function, 
dz^/dx, is defined with respect to a unit chord length. 

(4) Two temporary files or tapes must be provided, one being designated 
as (01) and the other (02). 

(5) Check input data. 
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OUTPUT DATA FORMAT 


First the title of the job and the input data will be printed in the 
same format as it was input. If the job is an over-wing blowing configuration, 
the computed jet entrainment will be printed after the fourth line of input 
data as follows: 

XJET Downstream distance of a given cross-section from the 
jet exit divided by the jet radius at the exit (r Q ). 

R_ the radius of the jet cross section divided by the original 

jet radius (r ) . 

DM Values printed are actually the nondimensionalized entrainment 

DX 

function E(x) (see equation 33 or reference 20). 

If the job' is with ground effect and the jet deflection angle is modified by 
the program, the equivalent velocity ratio, the equivalent jet radius and the 
estimated jet deflection angle will be printed at this point. The first two 
quantities are used to estimate the third one. 

HALF SW the reference half-wing area 

CREF the reference chord 

LAST the number of wing vortices plus the number of outer jet 
vortices. 

JPANEL the number of outer (or inner) jet vortices 

LTOTAL LTOTAL is the total number of vortices used which is also 
the total number of unknowns to be solved. 

LTOTAL = LAST + JPANEL 

If the job is an OWB configuration a note will be printed at this time 
indicating the shape of the equivalent jet cross-section used for the inter- 
action computations along with 3 parameters defined below. 

1. x-coordinate where the equivalent jet properties are 
evaluated. 
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2. Equivalent Jet Radius: the radius of the jet at the 

x location listed above. 

3. Vo the velocity ratio of the equivalent jet. 

V. 

3 


Vortex Element Endpoint Coordinates 


(X 1 ,Y ;l ,Z ; l ) coordinates for the inboard enpoint of a bound vortex element 

coordinates for the corresponding outboard endpoint. Wing 


elements are listed first and then jet elements. The number 
of elements listed should equal (LAST) . 

Control Point Coordinates 

2 columns of control point coordinates, one point for each vortex element. 
Number of points listed should equal (LAST) . 

Sectional Pressure and Force Data 


XV Percent chord location 

YV Percent span location 

CP the total AC at the given (XV, YV) point due to both wing 

P 

and jet induced circulation 

CPW The AC that would occur at that same point for the wing alone 

P 

case 

Y/SP the y-coordinate of the chord in question divided by the half- 
span 

CL The sectional lift coefficient due to circulation (jet on), non- 

dimensionalized with q^c. 

CM The sectional pitching moment coefficient about the Y-axis, 

2 

nondimensionalized with q ro c . 

CT The sectional leading edge thrust coefficient, nondimensionalized 

with q c. 

*00 

GDI The sectional induced drag coefficient, nondimensionalized with 

q c. 

^OO 


33 



CLW The sectional lift coefficient for the wing along case 

CMW The sectional pitching moment about the Y-axis for the 

wing alone case 

CDW The sectional induced drag coefficient for the wing alone 
case. 


Total Force and Moment Data 

The Lift Coefficient The total circulation lift coefficient due to 

wing, wing-jet interaction and entrainment (if any). 

Total Induced Drag Total induced drag coeff. for the jet on case 

Coefficient 


Induced drag = 
parameter 



or 1 
ireAR 


Total Pitching = Pitching moment coefficient due to all circulation 

Moment Coefficient 

forces, about the Y-axis. Nondimensionalized with CREF. 


Note : In the case of OWB jobs, these coefficients reflect the total jet- 
on forces and moments, but for USB jobs the coartda force and moment 
coefficients must be added to these; see below. 


USB Jobs 

Coanda Lift - The lift coefficient due to the lift component of the jet 
Coefficient 

reaction force 

Coanda Drag - Drag coefficient due to the drag component of the jet reaction. 
Coefficient 

The Coanda - Pitching moment coefficient due to the pitching moment caused by 
Moment Coeff. 

the jet reaction force (about Y-axis). 

OWB Jobs 


In the case of O.W.B. jobs the next three coefficients listed have the same 
definition as the first three except that the effects of wing-jet interaction 


have been ommitted from the computation. 
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The last four coefficients printed are due to aerodynamic forces and 


moments generated solely by the wing without any jet effects. 
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SAMPLE INPUT No. 1 


* YC-14 IN GROUND FFFFCt WITH LANDING FLAPS * 
1111 

0. 0. 0.18274 1. 12. 0.1849 1.933405 

2.4123 12. 0.73861 1.35063 

2 1 56. 47. 

8.8107 1.47? 0. 0. 0.85328 1.35 0.32114 0.32114 

0 . 1 • 1 • 

1.8 33 . 0 . 1 . 

4 ? 4 7 5 

7 3 

2 2 2 

0 . o.R 0. 0.123285 0.853285 0.9 

0.123285 0.853285 0.9 0.246569 0.853285 1.8 

0.246569 0.853285 1.8 0.OV8613 1. 056759 5.1 

0.698613 1. 05ti7p9 5.1 0.66354 1.14281 6.45 

0.8 1.3493 0. 0.853285 1.3502 0.9 

0.853295 1.3502 0.9 0.853285 1.351065 1.8 

0. 853285 1.351065 1.8 1.059759 1.354241 5.1 

1 .068769 1 . '5^4541 5.1 1 .14281 1.35554 6.4*5 

1.849? 2.024 0. 1.3502 1.963657 0*9 

1. ^50? 1.963657 0.9 1.351065 1.903313 1.8 

1.351065 1.903313 1.8 1.354241 1.662055 5.1 

1.354241 1.682055 5.1 1.35554 1.59154 6.45 

4 7 2 2 2 4 

0.1 23285 0.853285 0.9 0. 

0.123285 0.853285 0.9 0.36 

0.746569 0.853?85 1.8 0.36 

0.246569 0.853285 1.8 0. 

0.853285 1.3502 0.9 0. 

0.853785 1.3502 0.9 0.36 

0.853285 1.351065 1.8 0.36 

0.853285 1.351065 1.8 0. 

1.3502 1.963657 0.9 0. 

1.350? 1.963657 0.9 0.36 

1.351065 1.903313 1.8 0.36 

1.361065 1.903313 1.8 0. 

1.96365 4.76135 0.9 0. 

1.96365 4.76136 0.9 0.36 

1.90331 4.70101 1.8 0.36 

1.90331 4.70101 1.8 0. 
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u> 

N 4 


SAMPLE OUTPUT No. 1 

***♦****+*♦***♦♦*+♦***♦***♦****+♦♦♦♦+** 

♦ YC-14 IN GROUND EFFECT WITH LANDING FLAPS ♦ 
**+*♦♦♦+*+***+♦♦♦+**+*******♦***♦****** 
1111 


xxxxxxxxxxxxxxxxxxxxxxxxx 
CASE NUMBER « 1 
xxxxxxxxxxxxxxxxxxxxxxxxx 


INPUT DATA 
0.00000 
2.41230 
2 

0.81070 

0.00000 

1.80000 


0.00000 

12.00000 

1 

1.47200 

1.00000 

33.00000 


.18274 

.73861 

56.00000 

0.00000 

1.00000 

0.00000 


1.00000 

1.35063 

47.00000 

0.00000 

0.00000 

1.00000 


12.00000 

.85328 

0.00000 


.18493 

1.35000 

0.00000 


1.93349 

.32114 

0.00000 


THE EQUIVALENT VELOCITY RATIO# VO/VJ# AT FLAP HINGE * .19694 


THE EQUIVALENT JET RADIUS AT FLAP HINGE IN MULTIPLES OF EXIT RADIUS ■ 


THE ACTUAL JET DEFLECTION ANGLE IS ESTIMATED TO BE - 24.407 


4 

2 

2 

3 

2 

2 

0.00000 

.80000 

.12329 

.85329 

.24657 

.85329 

.69861 

1.05876 

.80000 

1.34930 

.85329 

1.35020 

.85329 

1.35107 

1.05876 

1.35424 

1.34930 

2 .02400 

1.35020 

1.96366 

1.35107 

1.90331 

1.35424 

1.68206 


4 

7 

2 

0 

0.00000 

.12329 

.90000 

.24657 

1.80000 

,69861 

5.10000 

.88354 

0.00000 

.85329 

.90000 

.85329 

1.80000 

1.05876 

5.10000 

1.14281 

0.00000 

1.35020 

.90000 

1.35107 

1.00000 

1.35424 

5.10000 

1.35554 


5 


0 


.85329 

.90000 

.85329 

1.80000 

1.05876 

5.10000 

1.14281 

6.45000 

1.35020 

.90000 

1.35107 

1.80000 

1.35424 

5.10000 

1.35554 

6.45000 

1.96366 

.90000 

1.90331 

1.80000 

1.68206 

5.10000 

1.59154 

6.45000 


DEGREES 


.32114 


1.15813 



4 

7 

2 

2 

.12329 

. 85329 

.90000 

0.00000 

.12329 

.85329 

.90000 

.36000 

•24657 

.85329 

1.80000 

.36000 

.24657 

.85329 

1.80000 

0.00000 

.65329 

1.35020 

.90000 

0.00000 

*85329 

1.35020 

.90000 

.36000 

.85329 

1.35107 

1.80000 

.36000 

.85329 

1.35107 

1.80000 

0.00000 

1.35020 

1.96366 

.90000 

0.00000 

1.35020 

1.96366 

.90000 

.36000 

1.35107 

1.90331 

1.80000 

.36000 

1.35107 

1.90331 

1.80000 

0.00000 

1.96365 

4.76135 

.90000 

0.00000 

1.96365 

4.76135 

.90000 

.36000 

1.90331 

4.70101 

1.80000 

.36000 

1.90331 

4.70101 

1.80000 

0.00000 

HALF SW « .881076 + 01 < 

LAST* JPANEL»LTOTAL* 

16A 80 2<t't 

VORTEX ELEMENT ENDPOINT COORDINATES* 

XI 

X 2 

Y 1 

Y2 

.11716 

.23019 

0.00000 

.90000 

.68284 

.74638 

0.00000 

.90000 

.23019 

.26267 

.90000 

1.17779 

.74638 

.75195 

.90000 

1.17779 

.26267 

.30294 

1.17779 

1.52221 

.75195 

.75886 

1.17779 

1.52221 

.30294 

.33542 

1.52221 

1.80000 

.75886 

.76443 

1.52221 

1.80000 

.33542 

.38079 

1.80000 

2.15998 

.76443 

.79079 

1.80000 

2.15998 

.38079 

.45315 

2.15998 

2.73409 

.79079 

.83282 

2.15998 

2.73409 

♦45315 

.54339 

2.73409 

3.45000 

.83282 

.88523 

2.73409 

3.45000 


UJ 

00 


2 


REF- • 1 472 QE +0 1 


Z1 Z2 

0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
6.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 
0.00000 0.00000 



• 54 339 
.88523 
.63362 
.93763 
.70598 
.97966 
.75136 

1.00602 

• 7864 3 
1.02639 

.83643 

1.05543 

.88644 

1.08447 

.88044 

1.26886 

.92606 

1 . 277*3 

.92610 

1.27766 

• 9 2614 
1.27794 

.92618 
1.27817 
.94537 
1.28174 
.97596 
1.28745 
1.01411 
1.29457 
1.05226 
1.30168 
1.08285 
1.30739 
1.10203 
1.31097 
1.11686 
1.31373 
1.13800 
1 . 3 17o3 


.63362 
.93763 
.70598 
.97966 
.75136 
1 .00602 
.78643 
1.02639 
.83643 
1.05543 
.88644 
1.08447 
.91735 
1.10242 
.92606 
1.27743 
.92610 
1.27766 
.92614 
1 .27794 
.92618 
1 .27817 
.94537 
1.28174 
.97596 
1.28745 
1.01411 
1.29457 
1.05226 
1.30160 
1.00285 
1.30739 
1.10203 
1.31097 
1 . 116bo 
1.31373 
1.13600 
1.31768 
1 .15914 
1.32162 


3.45000 

3.45000 

4.16591 

4.16591 

4.74002 

4.74002 

5.10000 

5.10000 

5.37024 

5.37624 

5.77500 

5.77500 

6.17176 

6.17176 

0.00000 

0.00000 

.90000 

.90000 

1.17779 

1.17779 

1.52221 

1.52221 

1.80000 

1.80000 

2.15998 

2.15998 

2.73409 

2.73409 

3.45000 

3.45000 

4.16591 

4.16591 

4.74002 

4.74002 

5.10000 

5.10000 

5.37624 

6.37824 

5.77500 

5.77500 


4.16591 

4.16591 

4.74002 

4.74002 

5.10000 

5.10000 

5.37624 

5.37824 

5.77500 

5.77500 

6.17176 

6.17176 
6.41696 
6.41696 
.90000 
.90000 

1.17779 

1.17779 

1.52221 

1.52221 

1.80000 

1.80000 
2.15996 
2.15996 

2.73409 

2.73409 

3.45000 

3.45000 

4.16591 

4.16591 

4.74002 

4.74002 

5.10000 

5.10000 

5. 37824 

5.37824 

5.77500 

5.77500 

6.17176 

6.17176 


0.00000 
0,00000 
0.00000 
0.00000 
0.00000 
0. 00000 
0.00000 
O . OOOO'O 
0.00000 
0.00000 
0.00000 
0.00030 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0 , ooouo 
0.00000 
0.00000 
0.00000 
0.00000 
0. 00000 
0.00000 
0. 00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 


0,00000 
0 .00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0,00000 
0 .00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
o.oocoo 
0,00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
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1.17220 

6.17176 

6.41696 

0.00000 

0.00000 

1.32162 

1.32406 

6.17176 

6.41696 

0.00000 

0.00000 

1.44811 

1.44004 

0.00000 

.90000 

0.00000 

a. ooooo 

1.92519 

1 . 873 Q 2 

0.00000 

.90000 

0 .OOoOO 

0.00000 

1.44004 

1.43754 

.90000 

1.17779 

0.00000 

0.00000 

1.87382 

1.85796 

.90000 

1.17779 

0.00000 

0.00000 

1.43754 

1.43444 

1.17779 

1.52221 

0.00000 

0.00000 

1.85796 

1.03830 

1.17779 

1.52221 

0.00000 

0.00000 

1.43444 

1.43194 

1.52221 

1.80000 

0.00000 

0.00000 

1.83830 

1.82244 

1.52221 

1.80000 

0.00000 

0,00000 

1.43194 

x . 42870 

1.60000 

2.15990 

0.00000 

0 .00000 

1.82244 

1.80189 

1.80000 

2.15998 

0.00000 

0.00000 

1.42870 

1.42354 

2.15998 

2.73409 

0,00000 

0,00000 

1.80189 

1.76911 

2.15998 

2.73409 

0.00000 

0.00000 

1.42354 

1.41709 

2.73409 

3.45000 

0.00000 

0.00000 

1.76911 

1.72824 

2.73409 

3.45000 

0.00000 

0.00000 

1.41709 

1.41065 

3.45000 

4.16591 

0.00000 

0 .00000 

1.72824 

1.66737 

3.45000 

4.16591 

0.00000 

0.00000 

1.41065 

1.40549 

4.16591 

4.74002 

0.00000 

0.00000 

1.68737 

1.65460 

4.16591 

4.74002 

0.00000 

0.00000 

1.40549 

1.40225 

4.74002 

5.10000 

0.00000 

0.00000 

1 . 654 O 0 

1.63405 

4.74002 

5.10000 

0.00000 

0.00000 

1.40225 

1.39974 

5.10000 

5.37824 

0.00000 

0.00000 

1.63405 

1.61816 

5.10000 

5.37824 

0.00000 

0.00000 

1.39974 

1.39617 

5.37024 

5.77500 

0.00000 

0.00000 

1.61816 

1.59551 

5.37824 

5.77500 

0.00000 

0.00000 

1.39617 

1.39260 

5.77500 

6 . 17176 * 

0.00000 

0.00000 

1.59551 

1.57286 

5.77500 

6.17176 

0.00000 

0.00000 

1.39260 

1 . 39040 

6,17176 

6.41696 

0.00000 

0.00000 

1.57286 

1.55886 

6.17176 

6.41696 

0.00000 

0.00000 

.23019 

.23019 

.90000 

.90000 

0.00000 

,36000 

.74638 

.74630 

.90000 

.90000 

0.00000 

.36000 

•23019 

.26267 

.90000 

1.17779 

. 36000 

.36000 

.74638 

.75195 

.90000 

1.17779 

.36000 

.36000 

.26267 

.30294 

1.17779 

1.52221 

.36000 

.36000 

.75195 

.75886 

1.17779 

1.52221 

.36000 

.36000 

.30294 

.33542 

1.52221 

1.60000 

.36000 

.36000 

.75886 

.76443 

1.52221 

1.80000 

.36000 

.36000 

.33542 

.33542 

1.80000 

1.80000 

.36000 

0.00000 

.76443 

.76443 

1.80000 

1.80000 

.36000 

0.00000 



.23019 

.26267 

.90000 

• 74630 

.75195 

.90000 

.26267 

.30294 

1.17779 

.7519 5 

.75806 

1.17779 

.30294 

.33542 

1.52221 

.75006 

.76443 

1.52221 

.92606 

.92606 

.90000 

1.27743 

1.27743 

.90000 

.92606 

.92610 

.90000 

1.27743 

1.27766 

.90000 

.92610 

.92614 

1.17779 

1.27766 

1.27794 

1.17779 

.92614 

.92618 

1.52221 

1.27794 

1.27817 

1.52221 

.92618 

.92618 

1.80000 

1.27817 

1.27817 

1.80000 

.92606 

.92610 

.90000 

1.27743 

1.27766 

.90000 

.92610 

.92614 

1,17779 

1.27766 

1 .27794 

1.17779 

.92614 

.92618 

1.52221 

1.27794 

1.27817 

1.52221 

1.44004 

1.44004 

,90000 

1.87382 

1.07382 

.90000 

1.44004 

1.43754 

.90000 

1.87382 

1.85796 

.90000 

1.43754 

1.43444 

1.17779 

1.85796 

1.83830 

1.17779 

1.43444 

1.43194 

1.52221 

1.83830 

1.82244 

1.52221 

1.43194 

1.43194 

1.80000 

1.82244 

1.82244 

1.80000 

1.44004 

1.43754 

.90000 

1.87382 

1.85796 

.90000 

1.43754 

1.43444 

1.17779 

1.05796 

1.83830 

1.17779 

1.43444 

1.43194 

1.52221 

1.63830 

1.82244 

1.52221 

2.07013 

2.07013 

.90000 

2.82718 

2.82718 

.90000 

3.89782 

3.89782 

.90000 

4.65487 

4.65487 

.90000 


1.17779 

0.00000 

0.00000 

1.17779 

0.00000 

0,00000 

1.52221 

0.00000 

0 .00000 

1.52221 

0.00000 

0.00000 

1.80000 

0.00000 

0.00000 

1.80000 

0.00000 

0.00000 

.90000 

0.00000 

.36000 

.90000 

0.00000 

.36000 

1.17779 

.36000 

.36000 

1.17779 

.36000 

.36000 

1.52221 

.36000 

.36000 

1.52221 

.36000 

.36000 

1.80000 

.36000 

.36000 

1.80000 

.36000 

.36000 

1.80000 

.36000 

0.00000 

1.80000 

.36000 

0.00000 

1.17779 

0.00000 

0.00000 

. 1.17779 

0.00000 

0.00000 

1.52221 

0.00000 

0.00000 

1.52221 

0.00000 

0,00000 

1.80000 

0.00000 

0.00000 

1.80000 

0,00000 

0.00000 

.90000 

0.00000 

.36000 

.90000 

0.00000 

.36000 

1.17779 

. 36000 

.36000 

1.17779 

.36000 

• 3 8000 

1.52221 

.36000 

.36000 

1.52221 * 

. 36000 

.36000 

1.80000 

.36000 

.36000 

1.80000 

.36000 

.36000 

1.80000 

.36000 

0.00000 

1.80000 

.36000 

0.00000 

1.17779 

0.00000 

0.00000 

1.17779 

0.00000 

0.00000 

1.52221 

0.00000 

0.00000 

1.52221 

0.00000 

0.00000 

1.80000 

0.00000 

0.00000 

1.80000 

0.00000 

0 .00000 

.90000 

0.00000 

.36000 

.90000 

0.00000 

,36000 

.90000 

0 . Q 0000 

.36000 

.90000 

0.00000 

.36000 



2*07013 

2.05151 

.90000 

1.17779 

.36000 

.36000 

2.82710 

2.80856 

.90000 

1.17779 

.36000 

.36000 

3*89782 

3.87919 

.90000 

1.17779 

.36000 

.36000 

4.65487 

4.63624 

.90000 

1.17779 

.36000 

.36000 

2.05151 

2.02842 

1.17779 

1.52221 

. 36000 

.36000 

2.80856 

2.76547 

1.17779 

1.52221 

.36000 

.36000 

3.87919 

3.05610 

1.17779 

1.52221 

. 36000 

.36000 

4.63624 

4.61315 

1.17779 

1.52221 

.36000 

.36000 

2.02042 

2.00979 

1.52221 

1.80000 

.36000 

.36000 

2.70547 

2.76604 

1.52221 

1.80000 

.36000 

.36000 

3.05610 

3.83740 

1.52221 

1*80000 

.36000 

.36000 

4.61315 

4.69453 

1.52221 

1.00000 

.36000 

.36000 

2.00979 

2.00979 

1.80000 

1.00000 

. 36000 

0 .00000 

2.76604 

2.76684 

1.80000 

1.00000 

.36000 

0.00000 

3.03740 

3.03748 

1.80000 

1.80000 

.36000 

0.00000 

4.59453 

4.59453 

1.80000 

1.80000 

. 36000 

0.00000 

2.07013 

2.05151 

.90000 

1.17779 

0.00000 

0.00000 

2.02718 

2.00656 

.90000 

1.17779 

0.00000 

0 .00000 

3.09702 

3.87919 

.90000 

1.17779 

0.00000 

0.00000 

4.65407 

4.63624 

.90000 

1.17779 

0.00000 

0.00000 

2.05151 

2.02842 

1.17779 

1.52221 

0.00000 

0.00000 

2.00856 

2.70547 

1.17779 

1.52221 

0.00000 

0.00000 

3.07919 

3.85610 

1.17779 

1.52221 

0.00000 

0.00000 

4.63624 

4.61315 

1.17779 

1.^2221 

0.00000 

0.00000 

2.02842 

2.00979 

1.52221 

1.00000 

0.00000 

0.00000 

2.78547 

2.76684 

1.52221 

1.80000 

0.00000 

0.00000 

3.85610 

3.83748 

1.52221 

1. 80000 

0.00000 

0.00000 

4.61315 

4.59453 

1.52221 

1.80000 

0.00000 

0.00000 

INTROL POINT COORDINATES* 




XCP 

YCP 

ZCP 

XCP 

YCP 

ZCP 

.44414 

.45000 

0.00000 

.82664 

.45000 

0.00000 

.49731 

1.03180 

0.00000 

.05329 

1.03180 

0.00000 

.51911 

1.35000 

0.00000 

.85329 

1.35000 

0 .00000 

.54090 

1.66020 

0.00000 

.85329 

1.66820 

0.00000 

.56621 

1.96340 

0.00000 

.86346 

1.96340 

0.00000 

.61102 

2.42124 

0.00000 

.89197 

2.42124 

0.00000 

.67773 

3.06284 

0.00000 

.93316 

3.08204 

0.00000 

.75008 

3.81716 

0.00000 

.97088 

• 3.81716 

0.00000 

.61680 

4.47876 

0.00000 

1.02008 * 

4.47876 

0.00000 

•66241 

4.93660 

0.00000 

1.04858 

4.93660 

0.00000 



• 09153 

5.22891 

C.OOOOO 

.92515 

5.56641 

0.00000 

•96671 

5.96359 

0.00000 

1.00033 

6.32109 

0.00000 

1.00020 

.45000 

0.00000 

1.10101 

1.03100 

0.00000 

1.10196 

1.35000 

0.00000 

1.10211 

1.66820 

0.00000 

1 • 10734 

1.96340 

0.00000 

1.12101 

2.42124 

0.00000 

1.14273 

3.00204 

0.00000 

1.16594 

3.01716 

0.00000 

1.18606 

4.47076 

0.00000 

1.20133 

4.93660 

0.00000 

1.21058 

5.22891 

0.00000 

1.22124 

5.56641 

0.00000 

1.23443 

5.96359 

0.00000 

1.24510 

6.32109 

0.00000 

1,67179 

.45000 

0.00000 

1.65257 

1.03100 

0.00000 

1.64206 

1.35000 

0.00000 

1.63154 

1.66020 

0.00000 

1.62179 

1.96340 

0.00000 

1.60666 

2.42124 

0.00000 

1.50480 

3.08204 

0.00000 

1.56034 

3.01716 

0.00000 

1.53068 

4.47076 

0.00000 

1.52355 

4.93660 

0.00000 

1.51309 

5.22891 

0.00000 

1.50274 

5.56641 

0.00000 

1.48895 

5.98359 

0.00000 

1.47780 

6.32109 

0.00000 

.48028 

.90000 

.18000 

.49731 

1.03180 

.36000 

.51911 

1.35000 

.36000 

.54090 

1.66820 

.36000 

.54993 

1.00000 

.18000 

.49731 

1 .03100 

0.00000 

.51911 

1.35000 

0.00000 

.54090 

1.66020 

0.00000 

1.10174 

.90000 

. 18000 


1.06679 

5.22891 

0.00000 

1.08700 

5.56641 

0.00000 

1.11377 

5.90359 

0.00000 

1.13470 

6.32109 

0.00000 

1.34975 

.45000 

0.00000 

1.35033 

1.03180 

0.00000 

1.35063 

1.35000 

0.00000 

1.35094 

1.66020 

0.00000 

1.35122 

1.96340 

0.00000 

1.35166 

2.42124 

0.00000 

1.35230 

3.00284 

0.00000 

1.35301 

3.81716 

0.00000 

1. 35364 

4.47076 

0.00000 

1.35400 

4.93660 

0.00000 

1.35437 

5.22891 

0.00000 

1.35469 

5.56641 

0.00000 

1.35509 

5.98359 

0.00000 

1.35542 

6.32109 

0.00000 

1.99383 

.45000 

0.00000 

1.95402 

1.03180 

0.00000 

1.93349 

1.35000 

0 • 0 0000 

1.91215 

1.66820 

0 .00000 

1.09236 

1.96340 

0.00000 

1.86166 

2.42124 

0.00000 

1.81730 

3.08284 

0.00000 

1. 76807 

3.81716 

0 .00000 

1.72371 

4.47876 

0.00000 

1.69301 

4.93660 

0.00000 

1.67341 

5.22891 

0.00000 

1.65078 

5.56641 

0.00000 

1.62281 

5.90359 

0.00000 

1.60018 

6.32109 

0.00000 

,65329 

,90000 

.18000 

.85328 

1.03100 

.36000 

.05328 

1.35000 

.36000 

,05329 

1.66820 

.36000 

.05329 

1.80000 

.18000 

.85328 

1.03180 

0.00000 

.05328 

1.35000 

0.00000 

.85329 

1.66820 

0.00000 

1.35020 

•90000 

.18000 



1.10181 

1.03160 

.36000 

1.35033 

1.03180 

.36000 

1.10196 

1.35000 

.36000 

1.35063 

1.35000 

.36000 

1.10211 

1.66820 

.36000 

1.35094 

1.66820 

.36000 

1.10217 

1.80000 

.18000 

1.35107 

1.80000 

• 1 bOOO 

1.10181 

1.03180 

0.00000 

1.35033 

1.03180 

0.00000 

1.10196 

1.35000 

0.00000 

1.35063 

1.35000 

0 .00000 

1.10211 

1.66820 

0.00000 

1.35094 

1.66820 

0.00000 

1.65693 

.90000 

.18000 

1.96366 

.90000 

.18000 

1.65257 

1.03180 

.36000 

1.95482 

1.03100 

.36000 

1.64206 

1.35000 

.36000 

1.93349 

1.35000 

.36000 

1.63154 

1.66820 

.36000 

1.91215 

1.66820 

.36000 

1.62719 

1.80000 

.18000 

1.90331 

1.80000 

.18000 

1.65257 

1.03180 

0.00000 

1.95462 

1.03180 

0.00000 

1.64206 

1 .35000 

0.00000 

1.93349 

1.35000 

0.00000 

1.63154 

1.66820 

0.00000 

1.91215 

1.66820 

0 .00000 

2.37336 

,90000 

.18000 

3.36250 

.90000 

.18000 

4.35164 

.90000 

.18000 

4.76135 

. 90000 - 

.18000 

2.36453 

1.03180 

.36000 

3.35366 

1.03180 

.36000 

4.34280 

1 .03180 

.36000 

4.75251 

1.03180 

.36000 

2.34319 

1.35000 

.36000 

3.33233 

1.35000 

.36000 

4.32147 

1.35000 

.36000 

4.73118 

1.35000 

.36000 

2.32186 

1.66820 

.36000 

3.31100 

1.66820 

.36000 

4.30013 

1.66820 

.36000 

4.70985 

1.66020 

.36000 

2.31302 

1.80000 

.18000 

3.30216 

1 .80000 

.18000 

4.29130 

1.80000 

.18000 

4.70101 

1.80000 

.18000 

2.36453 

1.03180 

0.00000 

3.35366 

1.03180 

0 .00000 

4 • 34200 

1.03180 

0.00000 

4.75251 , 

, 1.03180 

0.00000 

2.34319 

1.35000 

0.00000 

3.33233 

1.35000 

0.00000 

4.32147 

1.35000 

0.00000 

4.73118 

‘ 1.35000 

0.00000 

2.32186 

1.66820 

0.00000 

3.31100 

1.66820 

0.00000 

4.30013 

1 .66820 

0.00000 

4.70985 

1.66820 

0.00000 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


ALPHA * 12.000 DEGREES 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


VORTEX 

XV 

YV 

CP 

CPW 

1 

.05798 

.06977 

4.93840 

4.49174 

•2 

.33794 

.06977 

2.03630 

1.80650 

3 

.43557 

.06977 

1.61966 

1.41632 



■p- 

Ul 


4 

.62701 

5 

.71547 

6 

.95118 

7 

.05749 

8 

.33509 

9 

.43272 

10 

.62653 

11 

.71548 

12 

.95118 

13 

.05598 

14 

.32620 

15 

.42389 

16 

.62501 

17 

.71548 

18 

.95118 

19 

.05434 

20 

.31674 

21 

.41437 

22 

.62338 

23 

.71548 

24 

1 .95118 

25 

.05363 

26 

.31258 

27 

.41021 

20 

.62267 

29 

.71548 

30 

.95110 

31 

.05363 

32 

.31250 

33 

.41021 

34 

.62267 

35 

.71548 

36 

.95118 

37 

.05363 

38 

.31258 

39 

.41021 

40 

.62267 

41 

.71548 

42 

.95118 

43 

.05363 

44 

.31258 


.06977 

.06977 

.06977 

• 16997 
.15997 
.15997 
.15997 
.15997 
.15997 
.20930 
.20930 
.20930 
.20930 
.20930 
.20930 

• 2 5 864 

• 2 5 864 
.25664 
.25864 
.25864 
.25864 
.30440 

.30440 

.30440 

.30440 

.30440 

.30440 

.37539 

.37539 

.37539 

.37539 

.37539 

.37539 

. 47796 - 

.47796 

.47796 

.47796 

.47796 

.47796 

. 59181 ' 

.59181 


1 .35171 
1.26255 
.55640 
5.17620 
1.94055 
12.94878 
23 .4 7637 
25.58114 
4.88929 
5.49179 
2.03749 
12.61774 
30.66566 
29.91524 
5.66084 
5.82602 
2.24051 
18.48643 
24.75371 
29.31779 
5.09970 
6.27956 
2.02792 
2.66803 
3.83146 
3.65268 
1.12730 
6.60530 
2.98516 
2.71678 
3.61212 
3.43112 
1.02036 
6.83083 
3.03305 
2.73191 
3.57361 
3.37998 
.98585 
6.05093 
3.01201 


1.14022 
1.04710 
.43763 
4.91924 
2.13170 
1.83168 
2.76872 
2.64594 
.65845 
5.27058 
2.37103 
2.13158 
3.27826 
3.15942 
.80458 
5.61273 
2.52940 
2.31290 
3.43344 
3.20769 
.87123 
5.866 0 3 _ 
2.63523 
2.40955 
3.33918 
3.17765 
.09520 
6.14539 
2.75541 
2.50328 
3.39208 
3.21847 
.91740 
6.42785 
2.86224 
2.58819 
3.45521 
3.27261 
.93773 
6.55062 
2.09290 



45 

.41021 

46 

.62267 

47 

.71548 

48 

.95118 

49 

.05363 

50 

.31258 

51 

.41021 

52 

.62267 

53 

.71548 

54 

.95118 

55 

.05363 

56 

.31258 

57 

.41021 

58 

.62267 

59 

.71548 

60 

.95118 

61 

.05363 

62 

.31250 

63 

.4 1021 

64 

.62267 

65 

.71548 

66 

.95118 

67 

.05363 

68 

.31258 

69 

,41021 

70 

.62267 

71 

.71548 

72 

.95118 

73 

.05363 

74 

• 3 1 2 3 8 

75 

.41021 

76 

.62266 

77 

.71548 

78 

.95118 

79 

.05363 

80 

.31257 

81 

.41020 

82 

.62266 

83 

.71548 

84 

.95118 


.59181 
• ±>9161 
.59181 
.59181 
•69438 
.69438 
.69438 
.69438 
.69438 
.69438 
.76536 
.76536 
.76536 
.76536 
.76536 
.76536 
.81068 
.81068 
.61068 
.81068 
.61060 
.81068 
.86301 
.86301 
,86301 
.86301 
,86301 
. 8630-1 
.92769 
.92769 
.92769 
.92769 
.92769 
.92769 
.98001 
.98001 
.98001 
.98001 
.98001 
.98001 


2.70518 

3.54252 

3.34801 

.96614 

6.61919 

2.86516 

2.57079 

3.42590 

3.24046 

.91511 

6.18823 

2.56704 

2.26844 

3.08043 

2.90735 

.77877 

5.75794 

2.20923 

1.82115 

1.47834 

1.32197 

.53080 

5.09837 

1.79425 

1.40774 

.99004 

.84997 

.34788 

4.14762 

1.33189 

1.01141 

.67029 

.56505 

.22698 

2.70343 

.68885 

.50200 

.32683 

.27672 

.11796 


2.60905 
3.47165 
3.28590 
.93903 
6.38674 
2.78002 
2.50375 
3.38113 
3.20224 
.09795 
5.99843 
2.49930 
2.21579 
3.04784 
2.88006 
.76599 
5.59202 
2.15046 
1.77537 
1.44702 
1.29526 
.51966 
4 .96020 
1.74582 
1.37001 
.96398 
.82771 
.33869 
4.04358 
1.29704 
.98457 
.65201 
.54947 
.22053 
2.64027 
.67130 
,48883 
. 31781 
.26894 
.11449 


i , 



Y/SP 

CL 

06977 

2.39685 

15997 

9. 2028* 

20930 

10.87951 

2586* 

11.13111 

30**0 

3.51999 

37539 

3.57576 

*7796 

3.63256 

59181 

3.62100 

69*38 

3. *7233 

76536 

3.15106 

81068 

2.62123 

86301 

2.10687 

92769 

1.59608 

98001 

.92*71 


CN 

CT 

-1.01035 

.62707 

-6.805 17 

. 71562 

-8.29251 

.77570 

-8.22672 

.8*321 

-1.88996 

-.92170 

-1.93*52 

1.012*0 

-2.0*619 

1.08172 

-2.15128 

1.08835 

-2.16881 

1.0129* 

-2.025*6 

.69206 

-1.6735b 

.780*7 

-1.3*571 

.62259 

-1. 0**39 

.*2388 

-.61568 

.207*6 


COI 

CLW 

-.13161 

2.11*36 

6.00533 

2.55332 

7. 10137 

2.8*719 

6.90*05 

3.0161* 

.*6753 

3.1938* 

.3*117 

3.319*9 

.27053 

3. ***93 

.25*1* 

3. *093* 

.27768 

3.37889 

.26812 

3.07813 

-.2*075 

2.55362 

-.18825 

2.05327 

-.09*10 

1.55581 

-.01555 

.90252 


CMW 

COW 

-.8637* 

-.11557 

-1.17296 

.39*75 

-1.39361 

• *9090 

-1.51926 

.*8851 

-1.68191 

. 37693 

-1.79805 

.33260 

-1.95117 

.26729 

-2.08213 

.26722 

-2.11685 

.28321 

-1.96265 

.26936 

-1.63128 

-.23805 

-1.30961 

-. 188*0 

-1.01719 

-.09636 

-.60033 

-.01795 


THE LIFT COEFFICIENT * 4. 09698 

TOTAL INDUCED DRAG COEFFICIENT » 1. 2*738 

THE INDUCED DRAG PARAMETER * .07431 

TOTAL PITCHING MOMENT COEFFICIENT * -E. 62551 

THE COANDA LIFT COEFFICIENT, CLR * 1.06033 

THE COANOA DRAG COEFFICIENT, CDR - -1.11975 

THE COANOA MOMENT COEFFICIENT, CMR * -.30907 

THE LIFT COEFFICIENT FOR THE WING ALONE* 2.66469 

THE INDUCED DRAG COEFFICIENT FOR THE WING ALONE* .10863 

THE PITCHING MOMENT COEFFICIENT FOR THE WING ALONE* -1.45559 

THE INDUCED DRAG PARAMETER FOR THE WING ALONE* .02657 



SAMPLE INPUT No. 2 


* r)\f f R - w T Nfi - m n w f N fi CON F T r,!jR A T I ON OF TN D-7367 * 


1 


1 

1 

1 


0.4 

1.003 


0.43026 

0.85914 5. 0.01386 

3.08396 

1.7664 

10.' 


0.558617 

3.08396 


1 


1 

0. 



12.99971 

3.22804 


0. 

0. -1.299 2.032 

0.508 

1.5 

0. 


0. 

o . 0. 0. 

0 • 

2 


5 

5 

5 


4 


0 

n 

0 0 


-2.40778 

2.12077 


0. 

-0.28884 2.96356 1.778 


-0.28884 

2.96386 


1.778 

0.316567 3.20436 2.286 


0.316567 

3.20436 


2.286 

2.855 4.214 4.416 


3 


9 

3 

4 2 


-1 .299 

-0.28884 

1.778 

-1.299 0.316567 2.286 


-0 .28884 

2.96356 


1.778 

0.316567 3.20436 2.2o6 


2.96356 

6.21596 


1.778 

3.20436 6.45676 2.266 



Q .2 5<+ 


48 



SAMPLE OUTPUT No. 2 


* DVER-WING-BLOWlNG CONFIGURATION OF TN D-7367 * 

********♦**♦♦**♦♦♦♦♦*♦♦♦*♦*♦♦♦*♦♦**♦♦♦* 


1 

i 

1 1 

INPUT DATA 
.AOOOO 

1.00300 

xxxxxxxxxxxxxxxxxxxxxxxxx 
CASE NUMBER « 1 * 

XXXXXXXXXXXXXXXXXXXXXXXXX 

• A3026 • 8 591 A 5.00000 

I •76640 

10.00000 

.55862 3.08396 

I 

1 

0.00000 

12 * 9997 1 

3.22804 

0.00000 0.00000 -1.29900 

1.50000 

0.00000 

0.00000 0.00000 0.00000 

THE COMPUTED JET 

ENTRAINMENT ARE AS FOLLOWS 

XJET 

RJET 

OM/DX 

10.76626 

2.37532 

• 03 1 1 A 

12.01626 

2.37532 

• 03 1 1A 

1 A . 51626 

2.37905 

• 0 3 1 0 A 

17.01626 

2 • A 1 896 

.03000 

19.51626 

2.5032A 

.02793 

22.01626 

2.61298 

• 02 5 A7 

2A. 51626 

2.73386 

.02302 

27.01626 

2.85818 

.02077 

29.51626 

2.98203 

.01876 

32.01626 

3.10350 

.01700 

3A. 51626 

3.22167 

. 01 5A 5 

37.01626 

3.33617 

• 01 A 10 

39.51626 

3 • A A 69 2 

.01292 

<♦2.01626 

3.55396 

.01188 

AA. 51626 

3.657AA 

.01096 

A7. 01626 

3.75751 

.01015 

A9. 51626 

3.85A36 

• 009 A 3 

*52.01626 

3.9A818 

.00878 


.01386 3.00396 

2.03200 .50800 .25400 

0.00000 0.00000 



54.51626 

*.03915 

.00820 




57.01626 

4.12742 

.00767 




59 • 51626 

4.21317 

.00720 




62.01626 

4.29654 

• 00 6 77 




64 • 51626 

4.37767 

.00638 




67.01626 

4.45669 

.00603 




69.51626 

4 .5 3 372 

.00570 




72.01626 

4.60080 

.00541 




74.51626 

4.68222 

.00513 




77.01626 

4.75355 

.00466 




79.51626 

4.62394 

.00465 




82.01626 

4.89216 

.00443 




84.51626 

4.95926 

.00423 




. 3 

5 

5 

5 



2 

4 

0 

0 

0 

0 


-2.40778 

2.12077 

0.00000 

-.28884 

2.96356 

1.77800 

-.28864 

2.96350 

1.77800 

.31657 

3.20436 

2.28600 

.31657 

3.20436 

2.28600 

2.85500 

4.21400 

4.41600 

3 

9 

3 

4 

2 


-1.29900 

-.28884 

1.77800 

-1.29900 

.31657 

2.28600 

-.28804 

2.96356 

1.77800 

.31657 

3.20436 

2.28600 

2.96356 

6.21596 

1.77800 

3.20436 

6.45676 

2.28600 

HALF SW» . 

13000E+02 

CREF- . 3 22Q0E +0 1 

LAST# JP ANEL 

# L TOT AL ■ 





138 

90 

228 





xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

A RECTANGULAR JET WITH LATERAL EXTENT EQUAL 
TO THE EQUIVALENT JET DIAMETER IS USED FOR 
INTERACTION COMPUTATION 

NOTE. CHECK WHETHER THE WING IS IMMERSED IN THE JET 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

Ul 

° 

THE EQUIVALENT JET PROPERTIES ARE EVALUATED AT 1.54891 
THE EQUIVALENT JET RADIUS IS 


49329 



THE VELOCITY RATIO OF THE EQUIVALENT JET/VO/VJtlS .6625* 
VORTEX ELEMENT ENDPOINT COORDINATES- 


XI 

X 2 

Y1 

2.235*2 

-1.86613 

0.00000 

•1.01001 

-.70231 

0.00000 

.72300 

.9*358 

0.00000 

1. 9*0*1 

2.107*0 

0.00000 

•1.86613 

-1.33956 

.3171* 

— • 70231 

-.26357 

.3171* 

.9*358 

1.25812 

.3171* 

2.107*0 

2.33*11 

.3171* 

■1.33956 

-.81296 

.76935 

-.26357 

.17518 

.76935 

1.25812 

1.57265 

.76935 

2.33*11 

2.56082 

.76935 

-.81298 

-.**370 

1.22157 

.17518 

.*6287 

1.22157 

1.57265 

1.7932* 

1.22157 

2.56082 

2.71981 

1.22157 

-.**370 

-.20692 

1.53871 

.*8287 

.66016 

1.53871 

1.7932* 

1.93*67 

1.53871 

2.71981 

2.82175 

1.53871 

-.20692 

.13071 

1.7*205 

.68016 

.961*7 

1.7*205 

1.93*67 

2.13635 

1.7*205 

2.82175 

2.96711 

1.7*205 

.13071 

.*663* 

2.03200 

.961*7 

1.2*279 

2.03200 

2.13635 

2.33802 

2.03200 

2.96711 

3.112*7 

2.03200 

.*683* 

.70512 

2.32195 

1.2*279 

1 .**008 

2.32195 

2.33802 

2. *79*6 

2.32195 

3.112*7 

3. 21**2 

2.32195 

.70512 

1.15889 

2.52529 

1 • **008 

' 1.81816 

2.52529 

2. *79*6 

2.75051 

2.52529 

3. 21**2 

3. *0978 

2.52529 


Y2 

Z1 

22 

.3171* 

0. ouooo 

0.00000 

.3171* 

0.00000 

0 .00000 

.3171* 

0.00000 

0.00000 

.3171* 

0.00000 

0.00000 

.76935 

0.00000 

0.00000 

.76935 

0.00000 

0.00000 

.76935 

0.00000 

0.00000 

.76935 

0.00000 

0.00000 

1.22157 

0.00000 

0.00000 

1.22157 

0.00000 

0.00000 

1.22157 

0.00000 

0.00000 

1.22157 

0.00000 

0.00000 

1.53871 

0.00000 

0.00000 

1.53871 

0.00000 

0.00000 

1.53871 

0.00000 

0.00000 

1.53871 

0.00000 

0.00000 

1.7*205 

0.00000 

0.00000 

1.7*205 

0.00000 

0.00000 

1.7*205 

0.00000 

0.00000 

1.7*205 

0.00000 

0.00000 

2.03200 

0.00000 

0.00000 

2.03200* 

0.00000 

0.00000 

2.03200- 

0.00000 

0.00000 

2.03200 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.52529 

0.00000 

0.00000 

2.52529 

0.00000 

0.00000 

2.52529 

0.00000 

0.00000 

2.52529 

0.00000 

0.00000 

2.91*98 

0.00000 

0.00000 

2.91*98 

0.00000 

0.00000 

2.91*98 

Q<00000 

0.00000 

2.91*98 

0.00000 

0.00000 


i • 15889 

1.80592 

1.81816 

2.35727 

2.76051 

3.13700 

3. *0978 

3.68835 

1.80592 

2 . *5290 

2.35727 

2.89630 

3.13700 

3.523*9 

3.68835 

3.96692 

2. *5296 

2.05285 

2.89638 

3.22958 

3.523*9 

3.76235 

3.96692 

*.13908 

-1.250** 

-1.250** 

-.93651 

-.93651 

-.62258 

-.62258 

-1.250** 

-1.23*20 

-.93651 

-.8153* 

-.62250 

-.396*6 

-1.23*20 

-1.21105 

-.8153* 

-.6*257 

-.396*0 

-.07*08 

-1.21105 

-1.18791 

-.6*257 

-.*6979 

-.07*08 

.2*832 

-1.10791 

-1.17167 

-.*6979 

-.3*863 

.2*832 

.*7**2 

-1.17167 

—1.17167 

-.3*863 

-.3*063 

.*7**2 

.*7**2 

-1.250** 

-1.23*20 

-.93651 

-.8153* 

-.62258 

-.396*0 

-1.23*20 

-1.21105 

-.8153* 

-.6*257 

-.396*8 

-.07*08 

-1.21105 

-1.10791 

-.6*257 

-.*6979 

-.07*08 

.2*032 

-1.10791 

-1.17167 

-.*6979 

-.3*063 

.2*032 

,*7**2 


2.91*96 

3.47065 

2.91*98 

3.47065 

2.91*98 

3.47065 

2.91*98 

3.47065 

3. *7065 

4.02631 

3. *7065 

4.02631 

3. *7065 

4.02631 

3. *7065 

4.02631 

*.02631 

4.36973 

*.02631 

4.36973 

*.02631 

4.36973 

*.02631 

4.36973 

1.53871 

1.53871 

1.53071 

1.53871 

1.53071 

1.53871 

1.53071 

1.74205 

1.53071 

1.74205 

1.53871 

1.74205 

1.7*205 

2.03200 

1.7*205 

2.03200 

1.7*205 

2.03200 

2,03200 

2.32195 

2.03200 

2.32195 

2.03200 

2.32195 

2.32195 

2.52529 

2.32195 

2.52529 

2.32195 

2.52529 

2,52529 

2.52529 

2.52529 

2.52529 

2.52529 

2.52529 

1.53871 

1.74205 

1.53871 

1.74205 

1.53071 

1.74205 

1.7*205 

2.03200 

1.7*205 

2.03200 

1.7*205 

2.03200 

2.03200 

2.32195 

2.03200 

2.32195 

2.03200 

2.32195 

2.32195 

2.52529 

2.32195 

2.52529 

2.32195 

2.52529 


0*00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0*00000 

0.00000 

0.00000 

0 .00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

.77*07 

0.00000 

.77*07 

0.00000 

.77*07 

.77*07 

.77*87 

.77*07 

.77*87 

.77*67 

.77*87 

.77*87 

.77*07 

.77*87 

.77*87 

.77*87 

.77*87 

.77*07 

.77*87 

.77*87 

.77*07 

.77*67 

.77*87 

.77*87 

.77*87 

.77*87 

.77*87 

.77*87 

.77*87 

. .77*07 

0.00000 

.77*87 

0.00000 

.77*07 

0.00000 

0.00000 

0 .00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0 .00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00030 

0 .00000 



-.44369 

-.44369 

1.53871 

.<16287 

• 4 fa 2 8 7 

1.53871 

1.79324 

1.79324 

1.53871 

2 . 7 X 981 

2.71981 

1.53871 

-.44369 

-.20692 

1.53871 

.<*8287 

.66016 

1.53871 

1.79324 

1.93467 

1.53871 

2.71981 

2.82175 

1.53871 

-.20692 

.13071 

1.74205 

.68016 

.96147 

1.74205 

1.93467 

2.13635 

1.74205 

2.82175 

2.96711 

1.74205 

.13071 

.46834 

2.03200 

.96147 

1.24279 

2.03200 

2 . 13635 

2.33802 

2.03200 

2.96711 

3.11247 

2.03200 

.46834 

.70512 

2.32195 

1.24279 

1.44008 

2.32195 

2.33802 

2.47946 

2.32195 

3.11247 

3.21442 

2.32195 

.70512 

.70512 

2.52529 

1.44008 

1 . 4400 b 

2.52529 

2.47946 

2 .47946 

2.52529 

3.21442 

3.21442 

2.52529 

-.44369 

-.20692 

1.53871 

.48287 

.68016 

1.53871 

1.79324 

1.93467 

1.53871 

2.71981 

2.82175 

1.53871 

-.20692 

.13071 

1.74205 

.68016 

.96147 

1.74205 

1.93467 

2.13635 

1.74205 

2.82175 

2.96711 

1.74205 

.13071 

.46834 

2.03200 

.96147 

1.24279 

2.03200 

2.13635 

2.33802 

2.03200 

2.96711 

3.11247 

2.03200 

.46834 

.70512 

2.32195 

1.24279 

1.44008 

2.32195 

2.33802 

2.47946 

2.32195 

3.11247 

3.21442 

2.32195 

3.32643 

3.32643 

1.53871 

5.62623 

5.62623 

1.53871 

3.32643 

3.42282 

1.53871 


1.53871 

0.00000 

.77487 

1. 53871 

0.00000 

.77487 

1.53871 

0.00000 

.77487 

1.53871 

0.00000 

.77487 

1.74205 

. 77487 

.77467 

1.74205 

.77487 

.77487 

1.74205 

.77487 

.77407 

1.74205 

.77487 

.77487 

2.03200 

.77487 

.77437 

2.03200 

.77487 

.77487 

2.03200 

.77487 

.77487 

2.03200 

.77487 

.77487 

2.32195 

.77407 

.77487 

2.32195 

.77487 

.77487 

2. 32195 

.77487 

.77487 

2.32195 

.77487 

.77487 

2.52529 

.77467 

.77407 

2.52529 

.77407 

.77407 

2.52529 

.77467 

.77487 

2.52529 

.77487 

.77487 

2.52529 

.77487 

0.00000 

2.52529 

.77407 

0.00000 

2.52529 

.77487 

0.00000 

2.52529 

.77487 

0.00000 

1.74205 

0.00000 

0.00000 

1.74205 

0.00000 

0.00000 

1.74205 

0.00000 

0.00000 

1.74205 

0.00000 

0.00000 

2.03200 

0.00000 

0.00000 

2.03200 

0.00000 

0.00000 

2.03200 

0.00000 

0.00000 

2.03200 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.32195 

0.00000 

0.00000 

2.52529 

0.00000 

0.00000 

2. 52529 

0.00000 

0.00000 

2. 52529 

0.00000 , 

0.00000 

2.52529 

0.00000 

0.00000 

1.53871 

0.00000 

. .77487 

1.53871 

0.00000 

.77487 

1.74205 

.77407 

.77407 



5,62623 

5.72262 

1.53871 

3.42202 

3.56026 

1.74205 

5,72262 

5.86006 

1.74205 

3,56026 

3.69770 

2.03200 

5.66006 

5.99750 

2.03200 

3.69770 

3.79409 

2.32195 

5.99750 

6.09389 

2.32195 

3.79409 

3.79409 

2.52529 

6.09389 

6.09389 

2.52529 

3.32643 

3.42282 

1.53871 

5.62623 

5.72262 

1.53871 

3.42282 

3.56026 

1.74205 

5.72262 

5.86006 

1.74205 

3.56026 

3.69770 

2.03200 

5.86006 

5.99750 

2.03200 

3.69770 

3.79409 

2.32195 

5.99750 

6.09389 

2.32195 

CONTROL POINT COORDINATES- 

XCP 

YCP 

2CP 

-1.58493 

.14693 

0.00000 

1.54267 

.14693 

0.00000 

-1.16692 

.53161 

0.00000 

1.76545 

.53161 

0.00000 

-.65024 

1 .00710 

0.00000 

2.04081 

1.00710 

U. 00000 

-.23223 

1.39177 

0.00000 

2.26356 

1.39177 

0.00000 

.02931 

1.63292 

0.00000 

2.40324 

1.63292 

0.00000 

.29782 

1.87956 

0.00000 

2.54608 

1.87956 

0.00000 

.62911 

2.18444 

0.00000 

2.72263 

2.16444 

0.00000 

.89713 

2.43108 

0.00000 

2.86547 

2.43108 

0.00000 

1.19569 

2.70584 

0.00000 

3.02459 

2.70584 

0.00000 

1.70932 

3.17852 

0.00000 

3.29833 

3.17652 

0.00000 

2.34420 

3.76278 

0.00000 


1.79205 

.77487 

.77487 

2.03200 

.77487 

. 77 * t 67 

2.03200 

.77487 

.77487 

2.32195 

. 77487 

.77487 

2.32195 

.77487 

.77487 

2.52529 

.77487 

.77487 

2. 52529 

.77487 

.77487 

2.52529 

.77487 

0.00000 

2.52529 

.77487 

0 .00000 

1.79205 

0.00000 

0.00000 

1.79205 

0.00000 

0.00000 

2.03200 

0. 00000 

0.00000 

2.03200 

0.00000 

0 .00000 

2.32195 

0.00000 

0 .00000 

2.32195 

0.00000 

0.00000 

2.52529 

0.00000 

0.00000 

2.52529 

0.00000 

0.00000 


xcp 

YCP 

ZCP 

-.02113 

.14693 

0.00000 

2.19092 

.14693 

0.00000 

.29926 

.53161 

0.00000 

2.37276 

.53161 

0.00000 

.09529 

1.00710 

0.00000 

2.59019 

1.00710 

0.00000 

1.0156b 

1.39177 

0.00000 

2.78098 

1.39177 

0.00000 

1.21652 

1.63292 

0,00000 

2.89979 

1.63292 

0.00000 

1.92195 

1.87956 

0.00000 

3.01170 

1.87956 

0.00000 

1.67587 

2.18444 

0.00000 

3.15622 

2.18444 

0.00000 

1.88130 

2.43108 

0.00000 

3.27313 

2.43108 

0.00000 

2.11019 

2.70584 

0 .00000 

3.90337 

2.70584 

0.00000 

2.50302 

3.17852 

0.00000 

3.62792 

3.17852 

0.00000 

2.99099 

3 • 7o278 

0 .00000 


3 *63668 

3.76278 

0.00000 

3.90937 

3.76278 

0.00000 

2.65783 

9.23595 

0.00000 

3.38913 

9.23595 

0.00000 

3.91092 

9.23595 

0.00000 

9.12892 

9.23595 

0.00000 

-1.1X775 

1.53871 

.38793 

-.75526 

1.53071 

.38793 

-.57902 

1.53871 

.38793 

-1.08969 

1.63292 

.77987 

-.67106 

1.63292 

.77907 

-.96179 

1.63292 

.77987 

-1.01620 

1.87956 

.77987 

-.95060 

1.87956 

.77987 

-.16780 

1.87956 

.77907 

-.92537 

2. 18999 

.77907 

-.17810 

2.16999 

.77907 

.19553 

2.18999 

.77987 

-.05188 

2.93108 

.77987 

.09235 

2.93108 

.77987 

.98997 

2.93108 

.77987 

-.82301 

2.52529 

.38793 

.12656 

2.52529 

.38793 

.60175 

2.52529 

.38793 

-1.08969 

1 .63292 

0.00000 

-.67106 

1.63292 

0.00000 

-.96179 

1.63292 

0. 00000 

-1.01620 

1.07956 

0.00000 

-.95060 

1.87956 

0.00000 

-.16780 

1.87956 

0.00000 

-.92537 

2.18999 

0.00000 

-.17810 

2.18999 

0.00000 

.19553 

2.18999 

0.00000 

-.85188 

2.93108 

0.00000 

.09235 

2 .93108 

0.00000 

.98997 

2.93108 

0.00000 

-.07256 

1 .53871 

.38793 

1.13806 

1.53071 

.30793 

2.39868 

1.53671 

.30793 

2.85013 

1.53871 

.38793 

.02981 

1.63292 

.77937 

1.21652 

1.63292 

.77987 

2.90329 

1.63292 

.77987 

2.89979 

1.63292 

.77987 

.29783 

1.87956 

.77987 

1.92195 

1.87956 

.77987 

2.59608 

1.07956 

.77907 

3.01170 

1.87956 

.77987 

.62911 

2.18999 

.77987 

1.67587 

2.18999 

.77987 

2. 72263 

2 .18 999 

.77907 

3.15622 

2.18999 

•77907 

.89713 

2.93100 

.77987 

1.80130 

2.93100 

.77987 

2.86597 

2 .93108 

.77987 

3*27313 

2.93108 

.77987 

.99950 

2.52529 

.38793 

1.95977 

2.52529 

.38793 

2.92003 

2.52529 

.30793 

3.31779 

2. 52529 

.30793 

.02981 

1.63292 

0.00000 

1.21652 

1.63292 

0.00000 

2.90329 

1.63292 

0.00000 

2.89979 

1.63292 

0.00000 

.29783 

1.87956 

0.00000 

1.92195 

1.87956 

0.00000 

2.59608 

1.87956 

0.00000 

3.01170 

1 • d7956 

0.00000 

.62911 

2.18999 

0.00000 

1.67587 

2.18999 

0.00000 

2.72263 

2.18999 

0.00000 

3. 15622 

2.18999 

0.00000 

.89713 

2.93108 

0.00000 

1.88130 

2.93108 

0.00000 

2.86597 

2.93108 

0.00000 

3.27313 

2.93108 

0.00000 

9.97633 

1 .53 871 

.38793 

6.10253 

1.53871 

.30793 

9.52099 

1.63292 

.77987 

6.19719 

1.63292 

.77907 

9.63790 

1.87956 

.77987 

6.26910. 

1.87956 

.77987 

9.78292 

Z. 18999 

.77987 

6.90862 

2 • 10999' 

.77987 

9.89933 

2.93108 

.77987 

6.52553 

2.93106 

.77907 



9.99399 
<•.52099 
4. 63790 
9.70292 
<i.09933 


2.52529 
1.63292 
1.87950 
2.18999 
2. <.3100 


.30793 
G. 00000 
0.00000 
0.00000 
0.00000 


6.57019 
b • 19 719 
6.26910 
6. <.0062 
6.52553 


2.52529 
1.63292 
1.87956 
2. 18999 
2. <.3106 


.38793 

0.00000 

0.00000 

0.00000 

0.00000 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ALPHA * 5.000 DEGREES 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


)RTEX 

XV 

1 

.03006 

2 

.30066 

3 

.69139 

9 

.96199 

5 

.03006 

6 

.30866 

7 

.69139 

0 

.96199 

9 

.03806 

10 

.30866 

11 

.69139 

12 

.96199 

13 

.03006 

19 

.30066 

15 

.69139 

16 

.96199 

17 

.03806 

18 

.30066 

19 

.69139 

20 

• 9b 19 9 

21 

• 0 3 00 o 

22 

.30866 

23 

.69139 

29 

.96199 

25 

.03806 

26 

.30866 

27 

.69139 

28 

.96199 

29 

.03006 

30 

.30066 


Y V 

CP 

.03327 

,55966 

.03327 

.31987 

.03327 

.19362 

.03327 

.06992 

• 12038 

.67586 

.12038 

.32192 

.12038 

.19132 

.12038 

.06970 

.22606 

.89939 

.22806 

.33053 

.22806 

.18079 

.22806 

.05858 

.31517 

1.01515 

.31517 

.32355 

.31517 

.17199 

.31517 

.05697 

.36977 

1.26691 

.36977 

.97679 

.36977 

.28796 

.36977 

.11785 

,*12563 

1.30991 

.92563 

.95969 

.92563 

.27107 

.92563 

.12635 

.99966 

1.29880 

.99966 

.96297 

.99966 

.26593 

.99966 

.12829 

.55052 ■ 

1.23668 

.55052 

.50937 


CPW 
.53297 
.29 309 
.18608 
.06929 
.69 303 
.29896 
.1 8791 
• 06 967 
.77639 
.30929 
.16398 
.05967 
.86627 
.32193 
,18008 
.05725 
.91769 
.33019 
.17957 
.05610 
.96930 
.33792 
.17700 
.05999 
1.02733 
.39591 
.17378 
.05252 
1.06873 
.35017 



-.08710 


• 2 6907 

• 1 1 74 4 
1.17011 

.37977 
.18117 
.05614 
1.24057 
. 38389 
.16546 
.04504 
1.27622 
. 352? 5 

.11828 

.02907 

1.12402 

.16695 

.04529 

.01122 


CDI CLW 


► 01961 

.26442 

,01626 

.28252 

.01267 

.30444 

.00609 

. 32149 

.03279 

.33174 

.03047 

.34114 

.02937 

.35148 

.03334 

.35792 

.00116 

.36683 

.00155 

.37572 

.00632 

.35521 

.01081 

.24147 


.16995 
.05058 
1.11778 
.35774 
.16708 
.04829 
1.18776 
.36642 
.15570 
.04199 
1 .23170 
.33957 

.11288 

.02761 

1.09053 

.16119 

.04331 

.01066 

CMW ctJW 

.05562 .01888 

.03509 .01567 

.00337 .01304 

-.02864 .01066 

-.05158 .00943 

-.07619 .00782 

-.10863 .00582 

-.13575 .00405 

-.16828 .00244 

-.22386 -.00063 

-.27011 -.00531 

-.21212 -.00991 



THE LIFT COEFFICIENT WITH JET ENTRAINMENT ALUNE • .31601 

THE INDUCED DRAG COEFFICIENT WITH JET ENTRAINMENT ALONE « 

THE PITCHING MOMENT COEFFICIENT WITH JET ENTRAINMENT ALONE « 
THE LIFT COEFFICIENT FOR THE WING ALONE* .31057 
THE INDUCED DRAG COEFFICIENT FOR THE WING ALONE* .00766 
THE PITCHING MOMENT COEFFICIENT FOR THE WING ALONE* -.0752A 
THE INDUCED DRAG PARAMETER FOR THE WING ALONE* .076A0 


.007A1 

-.07680 


ERROR SUMMARY 

ERROR TIMES 

0115 0328 


T O O O O 


PROGRAM LISTING 


"VFCLftv (• ‘cp T gf , n , n ) GFF 

PDOPD/ik ijcnjr^F ( TNFUT ,n|;TD|iT , ta orc = ir-PUT , t A°cf = CUTPUT *TAPF ) t T ApF?) GFF 
APCOI^YMflW JP9 r F V T^ p- JFT I M T F D A (* T TPM GFF 

py r. FPl'i APO LAN OF THF | im T vfd c t jy 0 F k*ANCAC GFF 

GFF 

THIS DCOGPAM IS ‘ APPL TCAPL F to POtu upoFR-SUPFACF-PLOWING AND CVFP- GFF 

GFF 
GFF 
GFF 
GFF 
GFF 


WTMG PLOWING rr.NFIGfJOATTPf^ c MTTH and HTTHDIjT GFOUNP FFFFCT. 

Ac FUNCTION 


notf. onn A no ttp damped ruMDTTrvc u*y qf nFFivFr 

qilPPPOOPAMF 7CP(X) AND 7CT(X)« p FCPF r T T VFL Y . 

THF ARDAY D I w F K c T p N S op THTC opppd^m dFcTRXCT THF MjMRFP rf VXNO 
VODTXCFC TO PF ion ^AYl*Miv firn t^f t^TAL ‘-'Imp amp JFT VOPTICFS TO, PFGF F 
POO YAYX^L^. ALSO, T*-»F AFc^y CT 7 F OF gamma in fi.iopCUTIKF OFF 

•'SOL^TN'** PFFODF u c T G T^F oof+r-PAn. OFF 

GFF 

nxMTMFXON T Itlp (I'M GFF 

rovMOM /Coof/ ^coof off 

rowwOM /FCH rMP / r (?) « Y ( lr «4I ) « Y ( 1 0 , 41 ) ,clopf < IS) , XL (2. 15) « YTT (41 ) ,gff 
1YLK41) OFF 

Common /GP"0 M / H A i FFiv , YCO ( ?00) .v0P(?nn) . 7 Cp f ?00 ) •XLF(G0),yLF(50)«xTGFF 
1 F (P0) *FF I (?n) ,OH (CCj , YU (pno) .YV nnn) ,cv fP,P) ,XN (200 •?) fYN (?0 0*2) *7GFF 

2N(?np.?) « W TOTH ( P ) .YrAV(^) ,FV'FFP(Fn) ,HALF0,FJ(P1 # P) ,Fx{qc, ?) , Ty( qcoFF 

3*2) ,9C(160. p ) ,CT (1*0.6) ,LC (3) GFF 

COMM QM /AFDO/ AMI «AM?,FX .pp.OL (70) ,CTnn) *CD (30) fGAM (? # 100) GFF 

COMMON /CONST/ NCC.NCH.M) (Q) ,N’CJ«NTJ<G) ,LACT.mjw1 ( 3 * 5 ) , M JW? ( 7 , S ) ,JGF F 
lDAMFL^JJ(G) fNw(?) .mnJ.njp * OFF 

OOMMON /PARAM/ AL p T . al®C •AL c S«C r ‘F,cnF. t w • TPF *NGPr*HF|OHT « ATT GFF 

COMMON /JFT/ PM1 ,xr,yjT(31 ) .A ( 31 ) , 0(31 ) OFF 

common /ADD / CP (1 OP) .CM ( 10) .PPFAK(P) •?WD(P,1«j) .GAL (30) « I S VM , VMM « Vl< GFF 
1 ,TFMO,FCP,CAMLFR,rAM| FTtCAvTFP.rAMTFT, YJ^YJ*7J*PJ* ALP#CPFF,TvXSTP C-F? 

common /CO CT/ L TOTAL. L PA^l ,NJ|->( C ) •LOANJTJ ,tpk:tm,i_PAN? # FXTT.PTTAL . TWGFF 
1 1ST. DC (P) ,rrp OFF 

COMMON /CA^R/ XCAM,IM,YT(?.U) *7C(?.n) .AAM(?,10) fP p M(2.10) . CCN { ? ♦ GFF 
lioi.rn M(?,xnj off 

OTmfncxcN I co FC(H GFF 

oata TcpFC/3* (-0) * (0 ) • 7* (-r>) / OFF 

G Y C T F m C PIJPpRFCCFc JV-F por^TX^G OF MO*'. FATAL FPPQC MF^CAOFS XN THF^FF 
FVfil.MATXCN of PyO(A), VHFf : (A) TC (CCp THAN (-67S.P4) ON CVPFP-17C0FF 

. T^TG CALL may dt pc fFrrrr rpo tthfd CO M Pt)TFP SYctfmc # OFF 


OA|_l cycjPMO ( 11 *= # X cc FC) 

DT = "» , 1 4 ) *Q? 6 * 

PP AD (6,70) (TX T I..F (X) *1 = 1 • 
WDJTF (f ,P 0 ) 

( 6 . 70 ) (TTT) F(T) ♦Tr) 

(6.P0) 


WD I T C 

WPITP 

NCONsl 


13 ) 


13 ) 


»<m>NIJMPFC of CACFR TO CF pun, ofomctpy COnr ( = x XF GF 0 M FTR Y VARIES. 


G r F 

GFF 

GFF 

GFF 

GFF 

GFF 

GFF 

GFF 

GFF 


IN TMIS C ASF • ALPHA Mfiv A | c 0 pr p j ppppruT , =0 FfP THE SAm£ GFOmf. OFF 


10 
20 
30 
40 
GO 
60 
70 
*0 
0 0 
100 
110 
120 
130 
140 
1 GO 
1*0 
170 
IPO 
IPO 
200 
210 
22n 
230 
240 
7 F 0 
260 
270 
2 P n 
? 9 n 
300 
310 
320 
330 
340 
3G 0 
3*0 
37o 

? p n 
30 0 
400 

4 10 
4 ? 0 
4*30 
44 n 
4*o 
460 
470 
4 P 0 
4 Q 0 


59 



c 

r 

r 

c 

in 


70 


r 

r 

r 

C 


in 


40 

r 

Go 

*o 

70 

00 

on 

mo 


TOv out nTFcrccvT M p>-A"C) , cy*' v FTOv rc (=o FO C A CEMCPFP OFF 

JFT • A* 0=1 PJPrcwTCC) *>»o g p F 

MGPP=1 IF TWP T f 0 T P T\ crrilNP FFFFCT, =o OTPfP^ISF GEF 


GFF 

DF A p (P.ff)) If ACF,MG, T<;VM,\fipp GEF 

D T T F (*.*0) IOAFF*!* G.TSY^.FGcr' GEF 

rnMTNfiF GPP 

WDTTF (*.Qfi) GFF 

wottf (f*ion) *rrK' GFF 

WD TT C (F,orn GEF 

TALL ovfclav f AMiicnxGF.1 .0) GEF 

CALL OVFot Ay (6M!CQ|r*r,? t n) GFF 

CALI, gvfolav (^wi!CPmF,?.0) GEF 

rrjKTtvtiF Gff 

rat t n\/Fot_ A v (^M.CDTGF,4 # 0) GEF 

GAIL nvFPLAY (^iicoirF.Sft) GEF 

mcc^smccwm gff 

TF (MrpM.GT. TC AFF ) or TO 40 GFF 

IF (MG.ro. n GO TO 10 GEF 

GEF 

<m>» A nn T TT P* AL Anpj rc of att o r* j* OFCr. to QF roMFt'TE^f TO P F pr^o I^GEf 
pfmtmp the GFOvftdv oata h f r | K; F P Im cijqpouttmf “GEOMTY*‘ GFF 

GEF 

dfap (F.cn) ALP GFF 

ALP=At.P<>DT/lPO # GEF 

A|_pc=cn (AL p ) * GEF 

4 t_or = rOF ( a L° ) GEF 

ALPT^ALPF/ALPC * GFF 

no 70 Trl.MCC GFF 

T=*LLCI) * GEF 

yTT ( I ) S<IM (T) /rpc (T) GEF 

y D I t F (4,00) GEF 

m°Ttf, ( 4 .ino) nook gff 

wottf ( 4 ,qo) GEF 

GO t n ?o GEF 

rn^TTMiiF gff 


PTPP GFF 

GEF 

rnpMAy (GFin.r) GEF 

rOPWAT (7(4y,Ti) ) GFF 

TODMAT (17AA) GFF 

FODMAT OFF 

pop k* at nHft.Fnv.pF^xxyxxyyyyxxXYXXxxYxxYyxxx) GEF 

FOPMAT (1 wo , FEx . 13HC AGE K'l'VFFP =,T?) GEF 

fmp GFF 

FIINCTTCM 7 fp ( y ) 7 CP 

CnvvnM /GAMP/ TCAM.TM,yT (?•] 1 ) «7C (?• ] n • AAM (? v 10) «PRM (P«1Q) *CCV <?,7CP 
no) f npM(?.io) - 7 cp 


foo 

Fxn 

F?n 

E30 

S40 

EF 0 
f*o 
r 7 n 
foo 

FPO 
600 
f 1 0 
*?0 
4*3 o 
*40 
*F0 
**0 
*70 
*P0 
*P0 
70 0 
710 
7?n 
730 
740 
7c 0 
7*0 
770 
7P 0 
7Q0 
p 00 
Pin 
fl?0 
flon 
P 4 0 
pen 
p*0 
*70 
PPO 
POO 
POO 
Pi 0 
Q?n 
Q3 n 
P40 
PRO 
in 
?0 
30 


60 




TF (TCV/.FO.i) nr jr } r 

7CP 

40 

c 


7CP 

*0 

c 

campfp FtiK-rTjPM roc THF npnT c-pctt^m o<m> 

7CP 

60 

c 


7CP 

70 


7 ^P=n. 

7CP 

PO 


on to 70 

7CD 

PO 

in 

7Cp=7CAm ( 1 # v) 

7CP 

100 

?n 

OFTIJPM 

7CR 

110 


- PflP 

7CP 

1 ?0 


FMKTTTCK’ 7CT (Y) 

7CT 

1 0 


rO^-MPM /TAMO/ TTAM, I*', XT <?. 1 11 ,7f (?, 11 ) . AA»(9, 10) , PPM ( ? , 1 0 > ♦ CC*' ( ? ♦ 7CT 

70 


110 ) in) 

7CT 

30 


TF ( TPAM.FO. 1 ) PO TO 1 0 

7CT 

40 

r 


7CT 

SO 

c 

pampfp fi'mcttph r r p twp ttp ccc^tom 0 ** 

7CT 

60 

r 


7CT 

70 


7CT=7pD (X ) 

7CT 

PO 


no T p pr 

7CT 

on 

1 0 

7CT=7 cam (?, y ) 

7CT 

100 

?n 

dftpom 

7CT 

no 


CMP 

7CT 

l?n 


FIJN’C T TP^ ! 7 CAm ( T • y ) 

. 7CM 

in 


common /CAMP/ TCtM, T*S VT (7, 11 ) • 7f ( 7 . 1 1 ) • A AM ( ? , 1 n ) ,PpM (?, 10) .CC^ (7 

1 7CM 

70 


110 ) . pnM ( P • 1 n ) 

7CM 

30 


"=1 

7CM 

40 

in 

TF (X.PF.XTITif) .ft^n.X,|.T.YT(I,k'*l)) no TO 70 

7CM 

PO 


K = K ♦ 1 

7 C M 

60 


TF (K.GF.T»M GO TP 30 

7CM 

70 


no to in 

7CM 

p n 

?n 

«Msy-XT(l # K) 

70 

on 


7niMs1 - #A4M(I^)#cm? + 2 # *teM|T,K)^M + f^M(T t K) 

70 

inn 


no to cf) 

70 

lln 


TF (Y.LT. XT ( T, 1 ) ) ^P TO 40 

70 

170 


K=TM-1 

70 

130 


no TO 70 

70 

140 

40 

*=1 

7CM 

l*n 


on to ?o 

70 

1 AO 

c 0 

PC*T( lOM 

7Cm 

170 


FMp 

7CM 

10 0 


nUFPOliTTMF \/wcroN ( Mf 1 « K , A A , A • C A ) 

V?N 

in 

c 

TO FOL^F THF FTVI 1 ! TAMFOuc; F^HATTCK* Cy d t io pF|_|_ m F yFCTOP MFTHOO 

VSM 

0 0 


n t mf m f t on; a a ( i ) . r A ( l ) . A(i) 

VFN', 

** n 


NtC = K*MCl 

V«?N § 

40 


fumi=o. 

V*N 

*r 


K 1 =K -1 

VSN 

60 


JJ = 1 

VSN 

70 


00 10 J=1,K1 

VSN 

PO 


FIIM1 ( J) oft ( JJ) 

VSM 

on 

in 

JJ=JvJ*MCl*l 

VCNJ 

1 00 


61 



20 


^0 


4n 


c 0 

tn 

70 


on 


r 


Cl Ik/ 1 = C11W \ ♦ A A (K 1 

VSN 

nn 

no 30 1 = 1 ,Mr 1 

VSN 

120 

Cltv? = 0 , 

. VSN 

nn 

JJ=I A 

vsn 

140 

no ?n j=i,*i 

VSN 

ISO 

SMMprCI.'M? + Ai (J) *M JJ) 

VSN 

160 


VSN 

17ft 

KKsK* T 

VSM 

IPO 

CIJM? = CHMp + A A (Kk- ) 

VSN 

190 

CA ( T) r-StlMp/CljV] 

VSN 

?on 

M =1 

VSN 

210 

L = 0 

VSN 

220 

k-m r= (K-! i *nr i 

VSN 

230 

nn <t n J = 1 
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T * 7 (x c L.LT.o.. flvr. 7 J.pp. (?.«PJ) ) 

Tp (tj.gf, } xrnrp = o 

pi=- < ?Q.P 4 ?p*ri:^riu 7 .T. 7 ? 7 i^rt'-p. Q i 4 B 

Tp (ru*r«T.o.p?* 3 C) Pirn.fi^o , 4 <* < rt i— n **? 3 oi /n \ 

TP (Pi *1 t.O, . a* P.7J.0E, n ) Krrnr-n 
tp (KrrnF.Fn.n) rr to A n 

70 =pTftDT/ 5 , 

TMr /3 

roh'TT»>ipP 
Tp (Tmpp.N'P 
tp (Tirco.PO 

rn to PO 
a x = y fl^ d J 

Ojy=?.oP J 
TP (F 1 .LT .0 
TP ( 7 j.LT. ( 

IPflCJ) 

TP ( 7 J.LT 
T r (PI . OT 
p? o t =p i 

rnr = r : p»F ifT 

^r^ , T T ^:| IF 

nn on f si , c 
fM (T)=o 


o ) w^rooFs] 

,o. amo.kcoof.fo . \ ) 


rr yr 7 o 


) p 1 =0 , 

• • a k n , 


7J.rP. ( l.^cjn pi=pi* (t ,-fu* (?.*PJ- 


rFn i 4 ? o 
GEO] 430 
OFO 1440 
GP014PO 
f!F01 4FO 
GF01470 

GFO 1 4fl o 

GF01 4Q0 
GEOlEOn 
GE01P 1 0 
GFOl ?P0 
GPO1P70 
OEo] ^40 
GEO 1 p c 0 
GP01 C «S0 
GE01F70 
GFOl^Po 
GP01PQ0 
GEO 1 *0 o 
GEO 1 610 
GE01*?0 
GE01 *3n 
GE 0164 0 
GEOIFEO 
GEO 16*0 
GEO 1*7 0 
GEO 1 *° 0 
GEO 1 *c n 
GEO] 700 
7J)/(n # GF0]7in 
GEO ] 7?n 


( \ , c * p j) ) 

1 . ) pi =1 . 


Pl=l , 


Af;n tmp M.^-erq OF VCPTFv 


OFflr fC.cnn) K r . (V 1 ( T ) , I = 1 , 
WDJTr (A. con) *r , ( *• 1 ( I ) . T= ] 


«.»otmf M M MPcirflL. 

errT TO k p ««« 


GE01730 
GEO 1 740 
GF01 7 C 0 
GE01 7Ap 
GEO ] 77 0 
GF r ] 7 P 0 
GEO 1 7 q n 
GEO] °o n 
GF^l o] n 
GFC]P?o 

jF T □ F O T o CFODLO D F C 0 ^ c TFTFMGEO] °3 o 

GFOl 040 
GFO] PP 0 1 
GF 01 P 60 
GFO] P 70 

GE01 P°0 

rnrFC OF P| AD fi^p JPT S P * M F avo^o THF SP 4 VWTEF GEO 1 PQ 0 

GEO 1 QOn 


TOTAL *’I|MDF0 rr CDaK'yTSF crrjTr^c 

STCTdc tm F A OH cFfTTor- P| lie l oo* 

« rpr miiwcfd of wreTFy ctftdc u Ti-r 
WITH T k- A T OP JFT wreTFx CTOt pC * 


C) 

■ r 0 ) 
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r 

or^p (C,ooo) ,n.' ( T ) • T = 1 cc ) 
u/Pf-rr <A. c nni > J^d) « T =i , f r c ) 

*■»» Mjiwcrg of rv-CPruTCF wro tc-v fl c “p^-tc t»» ch^p^IFE ffpt tons « amp 
r r^QFD cope ( = 1 tf ra^PFo ncnrM'jrc act to or dfao in, =p if 

C r*>PFD FIINCTTP*C ACF PC"FT^ (rr Fv ncrp.pn^v FyPpFcCXON^ MANUALLY 

C J M c|inpcnppA^c 7pP(Y) a><p ?rT(y) ) , A^n THp ►.jimfpp of cay«FP o^PT- 

r MATFF T n pf CPfip T* (AroTTO»CY TF TPA»‘ = ni -0.00 

c * k 'OTP. TPF Mtupjrc pr fAfQFC ncOTMATFC A L L P W E 0 T9 11 * 

r 

pc-fip (c.cinn) { nu> ( t ) « t = i , -> ) , r r a •• , x M 

UOTTP (^.^0) fMi.-(T) ,T = ] 4 p) .ICA^.T*'- 

MCVsKIKd) 

L = 1 

TC ( xr ft" # MF. n PP T P 110 
r 

r *** TF TPfl M = l* PFfin t* TUF Y-rrrcnTNATFF an;D Twf oa^pFq OPOTMATFC* 

r ficct Fro tmc op.pT cfrnrw at^p thf k> pop the txp section o<m> 
r 



pO ion T = 1 •? 




OFAT ( c • 4 Q 0 ) 

( YT ( T , J) • J=x 

«T> ) 

t no 

OC£p ( c t 40 0 ) 

( 7 P (T • J) « J=i 


tin 
1 ? 0 

PALL FPL INF 

CO*TT K, "f 

roNTTNljF 

( T M , y r , 7 f , A A “ 

. ccm , rfN . x ,?) 


11*1 

F M = N C.v 

no i ->n T = i,rrw 

r T = T 

CPCWL ( T) { 1 .-00* ( (?,»F T -K ) OPT / (?•**■*) ) ) 

* M ( T «L) =?,**rcr (Peru < I ) * (1 . -CPPWI. ( T ) ) ) 

v?o c°cwt ( T) sror*-L 
no pqp KKs 1 , NC 
r 

c CPPPPTNATFC PF ccfavt p^ncrc pimp cda**»/TSF SECTION* 

0 

PF AP (*. 4Qfl) (vy|. (T),vyTfT).vt ( T ),Tsi,?) 

MOTT r {A.4C0} fvYLcn,vyT ( T) <V |. (T)*T=1«P) 

tf (Tii«P.^p.n or m ?to 

tf ( icYV.Fr.o.M'n.^^.r^.i ) T r iao 

tf (** ,Fp,'(*.jn {*jo') *i n on tp ]c 0 

TF (TCYM.MF.r # «».n.KK # FP # jP)-n ) on T n ]fO 

TF ( TFYV .NF. n . ANT .KK .cr # K JV: (K’JD) ) no TO 140 

on to P]n 

140 XXL (?)=*XL<1 ) * (VYL ( n )* ( V L (?) -YL (1 ) ♦PT-FJ) / (YL (?) -YL ( n ) 

YYT(P)ryxT(l ) + (WT (?) - y y T ( ] ) )*{Yl (?) -YL ( 1 ) ♦CT-PJ) / (YL (?) -Yl. ( 1 )) 
tf ( T CVM *F n . n ) on to ] 7o 
ICO yyiM)=vL? 


GEO) PI o 
r*Eoi q?n 
PFOl GO 0 
GEOl<Un 

GFP 1 Q c f) 

GE01Q6n 
GEO 1 *70 
GEO ) QP 0 
GF 01**0 
GEn?oon 
GEOPOIO 
GEO?n?o 
GFOP 030 
GFpp040 
oEO?o*n 
GEO ?060 
GFO? 0 7 0 
GE0?0P0 
GFOpOQO 
GEOPIOO 
GE 0?1 1 0 
GEO? 1£0 
GEO? 130 
GEO? 1 4 0 
GEO? ISO 
GEO? 1*0 
GEO ? 170 
GFO? 1 0 0 
GFO? 1*0 
GEO??0 o 
GEO? ? 1 n 
GEO??? 0 
G E 0 ? ? 3 0 
OEO??4 o 
GEO??^ 0 
0FO??*n 
GE0??7 o 
GEo?? c o 
GFO??QO 
GE0P30 o 
GFO?? 1 0 
GEP???o 
GEP? ** 3 0 
GE P? ? 4 o 
GEO? 3 ^ 0 
GE0?3PO 
GE 0?37 0 
G F 0 ? 3 P 0 
GFP? 3 qo 
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y VT ( M = * T7 
no yo T T n 

t* ft x*L ( ?) =x XL ( 1 ) ♦ < v X I ( ? ) -xx| M ) ) * ( V L (?) -v|. ( 1 > -dt + pj) / (vl (?) -YL f n > 
XXT(P,ryX T n ) ♦ (X VT (;).nT( n )* fvi. (?) -YL ( 1 ) -oT*PJ) / <YL (?) -Yl Cl) ) 
1 ?n xL?=xxL(?) 
n? = vyT(?) 

rr (T e ;vM # Fr.n.fiMr.k'K' # rr.i) c-c jn i pp 

I r r^VW.MF.O.^-P.Kk.Fr, (f'jK (tJP ) - I ) ) On T n 1 pp 

VL (1 >=vl? 

ion jc (T <;vM,FP,n) pr to icn 

rr (K^ # Fr.,(Mo'-*(^Win fo TO ?10 
rr (^,rr .mjw jP) ) V| {? ) =vt (? ) ♦ct-d j 

TF (Xy .=*0 . (*JV- (► JO) -1 ) ) VI. |?)av| (?1-CTfQJ 

r-n to ppp 

1^0 TF (KK.FO.l) vt (?) =VL (?) 4 P t -5J 

?no vL?=YLf?) 

?1ft CO^TP'HP 

FMrM) (KK) 

M P V- r M 1 (KK) 
no ??o jri.wsw 

pj=j 

odcv,l ( j) so . c * n .-oof ( (?.«fj-i . ) *PT/f? # ^F M ) ) > *mo • 

vrOM { J) =0. c » n .-OOP (Fjppy/F^) ) 

PJ (J*KK) =<?TW(FJ*CT/FM) 

??P C0MTTM*IP 

TF (K’K'.FO.kT ) fin TO ??0 

C°?WL f 1) =n ♦ 
opcwl (N’SW) =i op . 

no TO ?40 

??n C°?wl { 11 =p. 

P4P TP (KK.FO.mJWCII ) ) WJW1 (| .(.I. )=TPAFFl. 

TF (KK.FO.MjV(^jr) ) LO(l )=*!,♦! 

L°= (L-l ) 

CALL oA^'Fl. (xx| ,Yt ,xxT*rprvL.CP^WL* K| Pw*TD&^FL*LP4N'FL.KL*LO f Fwp) 

TP AfOFL=L p fl K ’PL ♦ 1 

*JCS=MCS + NF'J- 1 

VTOTW (Y’K) = YL (?) -YL ( 1 ) 

PDF A V ( KK ) = vj_ f | ) 

TF (KK.FO.MJV (LI ) ) * , J*-?CL«l | . >=1°^ PL 
TP (KK.rF.vc) o o to ?np 
uialp d = VL(?) 

?c 0 yp (K'V,FO, ki jwrtL) ) U=tLM 
IP (L.F0.3) 00 to onn 

IP (L.PO.l) LPAN1=I. PANEL 
TP (L«FC.P) L p A f,, ? = L D A^Pl. 

TF (Vw (?) • FO • 0 ) 00 TO ?ap 
L = L ♦ 1 
NCWsMW (L ) 

TP (L .PO .3 . &KT ,* w ( 3) ,po„ A) np to pop 


GP0?40ft 
opo? 41 n 
n ro?4?o 
OF0?430 
GE0?44ft 
GF0?4^n 

GE0?460 
GE0?47 0 
GP0?4Pp 
GE0?4Qft 
GFOPPOP 
GFO?F) n 
GFOpFPO 
GF0PS30 
GEOPP40 
GF0P6E0 

G€0?Pfjp 
GE0?G7n 
GEO?FPft 
GEOPG^n 
GEOpAOO 
GEOPA 1 0 
'GEO? A? ft 
GEO?A30 
GE0?A4ft 
GEO?A?ft 
GE0?6A0 
GE0?A7n 
GEO?AP0 
GEO?AQf) 
GF0?70P 
GEO? 7) n 
GE0?7? 0 
GFO?73P 
GF0?74 o 
GEO?7 fo 
GE 0?7Aft 
GEO? 77 0 
GE0?7Pn 
0F0?7Q n 
GEOpPftn 
GFO?o 1 ft 
GEO?«?n 
GF0?P3ft 
GF0?P4 o 

GEO?RSO 
GEOPOAft 
GEO? P 7 o 

GEo?pp n 
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no to ipn 

P^ft no p70 !=?♦? 

no pin j=i,nfp 
M JW 1 ( T « J ) - 0 
?7n wj w?(T ,j)-n 
L°AN?= LPANFL 
NCS=wcs*3 
no to o.oo 

?ap no pop T=1*MFP 
M JW1 (3tl)=n 
?90 ^JW?{O,T)=0 

L=L-1 

NTc-Mrs^Nr^/? 

OOP COMI^Itr 
M CS=NCS/3 

MCW = MW ( t ) +MW (P ) ♦ *»«! ( 3 ) 

VlJsV M ll 

IF ITUSP.NF.O) rurVMII 

VMt>=nj 

PTJ=PJ 

7JT=7J 

IF (PT.GT.AR?(7J) . AN'O.KConF.FO.O) 
IF (TllCP.NF.ft) no TO 31ft 
A M ?= A w 1 / (VM1J«FOPT (TF^P ) ) 

IF (flwp. pT. 0,9) voitF (6. c *ft) AM? 
IF (AM?.OT.n.Q) amps n.a 
710 fONTTMIlF 

LAFT=LP fi ^FL 

C 


GFOppQft 
GF029P0 
GFC?P10 
OFOpqpp 
GE0?9on 
GE0?94ft 
GEO?9FO 
GE0?9*n 
GE0?97ft 
GEo?qpft 
GE0?9qp 
GEOonpn 
GF 03 P 1 n 

GF03 o? n 
GE03ft?o 
GF03P4P 
GEO 30 SO 
GE030^ft 
GEO 3 P 70 
GFoopPri 
GFCOOQO 
GE03inn 
GE03 1 1 ft 
GE03 1? ft 
GE03130 

GE0314P 

GF031FP 
GE031Fft 
GE03170 

OF JET CT PClJ M - GE031PP 

(use ono ^uMPFRcnE 03 iqp 

( 1 1 5 F fvfm km INFERS > 1 AND NUMRFPF GEO3?0p 

GE 03 ? 1 ft 
GE03?? ft 
GEC3P30 
GE03?4P 
GE03? C 0 
GE03?*n 
GE03 ?7 p 

GE 03?pp 
GF 03?Rft 
GE033PP 
GE0331 P 
GE033PP 
GE03330 
GE03340 
GEO33F0 
GE033PP 
GE03370 


7JT=QT*7J/APC (2J) 


c *** TOTAL ML1MPEP of CTDFA^WTFF JFt cp CT TOMC « NIJMPFP 
c FFPFMTTAL qTpxpq MJHIC 0*F FOP A LOM-CFMTFPFn JFT 

C ) AMO PHIS ONF FOR A OFMTFPFC JFT 

C OF JFT VOPTEX Fl_FNE*TC 0^ FACH JET CECTTO* **» 

C 

DFAO f^« c 00) NNJ.NCJ, (NOJ(T) *T=1 «**J) 

‘V P T T F fA.PPOi Nf-J#A-cj. rj(T) .T = 1 .mk-J) 

IF (KCOOF, Fr . 0 ) CMl rrorj ( tcvm ,\<;j , Y ) 

TF (TCYM.FO.ft) ^-cjjrrcj/? 

IF (TSVM # nf.O) i:«rjjs (MCJ + 1 ) /? 

N'SYM=1-Ifvm 

NS J 1 =NSJJ-1 

FNJsMC JJ 

CPSWL ( l > " 0 • 

C°SViL (NRjj) =1 . 

YCON u )sft. c * (1 .-fOC ( PI/FVJ) ) 

00 opn IsP,Ncji 

F T r I 

CP?Wl (n*ft. c #M .-rrc ( )*PT/(P.oFNJ) ) ) 
or 0 Yrrwfn=ft # F*n .-roc ( pt«pt/fk j> ) 
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TFMTHsf'C 

j r=K:r<;*L 
igji=wMj-i 
nn 4?n 

TF (TIICp.mf.oi r -r T P 37n 

r 

r rnnoniMATFc of poi^ti^o lt^ff of jft cfctionc ppoJFCTEP CK 1 x-y 

C °LA*' , F 

r 

CC flr ( q,4CO) (VVl ( T1 «yyT ( T ) .VI (T ) . Ts^ .9) 

WP T T F (f,4QO) ( X XL ( T ) * X XT ( T ) * Y|. ( T ) • T = 1 , ? ) 

TF (TCVM.FO.O) GO TP Tin 

xLl = xxL(l)-(xxt r?)-yxLM) )*(OT.BTJi / (VL(?)-VL(1) ) 

XTlsXXT(11-(yXT(?1-VXT(11) « (^T-°TJ) / (Y|. (?) { 1 ) ) 

110 XL?=x*L (1 1 ♦ ( vxi. (?) -x*L (1 ) ) MPT^TJ) / ( yl ( ?) -vl ( i ) ) 

XT?xXtfT< 1) « ( VVT (9) -yyT (1 n « (CT*DTJ) / ( YL (?) -YL ( 1 ) ) 

IF (TSYY.FO.O) rr TP 340 

XXL ( 1 ) =xL 1 

X X T ( 1 ) =XT1 

tap xxi(?)=xL? 

YXT(?)c*T? 

TF (IcYM.rr.O) r-o tp ?cn 
YL(n=VL(l)-PT*OTj 
*>cp vl (?) syl (?) ♦dt.ptj 

TF (KPPnF.FP.O) OP to 3^0 

xxl ( 4) =xxl (?) 

XXT ( 4 ) =X XT ( ? ) 

YL <4)=V(_ (?) 

XXL (?) = X X L ( 1 ) 

XXT(?)=XYT(T) 

V L (?) =yl (1 ) 

XXL (*») *y *L <*) 

XXT ( 1) tHT (4) 

YL(3)=Yl.(4) 

tl n 1=0. 

7L (?) =7P 
7L (31=70 
7L (4)=n. 
i^n CP^TT m iip 
r,p tp tqo 
r 

r ***rop pptmatfc OF orpftk entire orru CF^T ANFtJL AF JFT CECTIC^S Fpo 

r nee pokftoi ,d attp* c 

r 

i7n op inn t=1 *4 

OF/T (C,4QP) XVI (T) ,XXT(T1 .Yt ( T 1 ,7t (!) 

Top W D T T F (A. 4 QO) XV) (T) ,xyT(T) ,VL (T) *71. (T) 

TOO Cr>K=TT^IlF 
T T = J J 


GFns^Rn 
^F033<90 
GE 0340 n 
GF034 1 n 
GF034PO 
GF 03430 

GF0344P 

GEP34C0 

GF 0346 0 
GF0347 0 
GE034P0 
GE034QO 
GFO3 e; 0O 
GF03F 1 ft 
GE03*?n 
GE03G3P 
GF03F40 
GE035F0 
GE03560 
GE03 C 7 0 
GF03FO0 
GE03FQ n 
Geo36nn 
GE03f 10 
GE03fi?f) 
GE03630 
GE03G40 
GE03ft?0 
GF 03660 
GE03670 
GEO36P0 
GE03*<?n 
GEP370n 
GF03710 
GE037?D 
G E 0 3 7 ? P 
GEO 3740 

GF037CP 
GF037*p 
GE0377 n 
GFp?7Pn 
GE0370P 
GFp3P0p 

GE03 p 1 it 
GE03 P ? 0 

GF0303 0 

GEO 3 p 4 n 
GF03 pc ^n 
GF03P60 
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400 


410 


45fl 


4^0 


JJI.sJJ*!. GE03°70 

pwcjswrj tj.n (5En3BPo 

’ l iJ=N r JfJJ) GF03P90 

GEO3Q00 

TP (W.I.RT.B) N»\|S*'J*P GC03P10 

ck! J= k ’ M -' PF039JO 

no 400 j = ] GF03930 

PJsJ GEO3«40 

PC fJ.JJl =o .9* (1 .-00?( l ) GE03«P0 

<=T ( = ST k ' t (?. »PJ-l . ) opt / J|) GEG3O60 

00 410 J = 1 .»'J 6F03970 

C 'I=J GE039P 0 

oDfwi, f J) =n.9«n .-rrc ( (P.tsFj -1 . 1 «CT/(P.*PVCJ) ) ) GF03«9o 

9NM.JJll*’.*ercT(rprH . < Ji * M . -rerni (J|l 1 GE04000 

TF (KrorF.FO.fll Ofl L JPI-6PP (YYI .XXT.Yl.,VJ.?JT,FT,CPC'-JL.IP«MFt..^J.GP04010 

1 .JC.TFVM, GFO 40 F 0 


IF (KroPF.FO.n r SUL FFCU..C. ()(VL.YyT,v|..7t,rorvL *CPFVL. IP« > ‘'FL.T'J.JGF04030 


1 r * TT .mcvm) 

GFD 4 O 40 

M JJtJJ)=l T 

GE 040 Fo 

TPAMFI. = (_ A<;t* 1 

GE 04 06 n 

cnF = y y t (1 ) -xvl f 1 ) 

GF 04070 

TF (IltCP.Kip.n) 7 >= 7 |. ( 4 ) 

GF 040 O 0 

TF (^ronF.PO.n vrr^(? c )= 7 i ( 4 > 

GEO 40 Q 0 

YCrv (?4 ) rtICP 

GFQ 4 1 0 0 

TMTP=NJw ( b -> JP ) 

GE 04 HO 

TF (TMCP.Fn.?) rviirrM|*oM 4 LFFV/'-«TnTW ( TfcTO) 

GE 04120 

C(l)srMii 

GE 04130 

T r f^rrnp.rn.n) yoon-(?c )=1# 

GF 04140 

tf (k'ronr.Fn.n rati r rdj (Tcvm^cj.yj 

GE 04160 

v d T T r t- f.i FCV ,roF c 

GF 04140 

JP A NF(_ =[. ACT -1 DA f. F \_ 

GF 041 TO 

LTCTALrl ACT* JD ANFL 

GF 04 1 P 0 

V n t t F ( 4 ,cqo) 

GF 04 1 P 0 

VO TTF ( f. , = 0 n ) |_ ACT *JOA^;F|_,LTPT a L 

GF 04 ?nn 

TF f T»tcP .n:f * n ) nr to 4 ?n ' 

GE 04 ? 1 n 

mpjtf (A,f 7 n) 

GFG 4??0 

jr ( k-rr^F # ro , n ) mc tt f (a^aco) 

GF 04 P? 0 

TC (Krrrr.cr J ) 1 .CTTC (h t 7 nO) 

GEO 4 ? 4 0 

tf (kTrnF,rr ,] ) c t t f ( a . 7 i a ) 

GF04pFn 

MO TTF (A,f 70 ) 

GF 04 PAO 

WPTTF (A.^Ffl) y F p | • T 

GE 04 P 70 

V O TTF 0 ) rjCppT 

GF 04 P° 0 

UP T tf ( A , A o 0 ) VM| ' 

GF 04 ?PO 

rnh-T r^tiF 

GF 0430 0 

TF (TTAV.mf.]) r-o TO 440 

GE 0431 0 

V P T T F (f. = Qf!) 

GF 04??0 

up T T F (A,A) 0 ) (YT( 1 ,T) *T =1 ,I> 4 ) 

GF 04 33 0 

vto T tf <a,a? 0 ) r 7 f ( ] , T) . T = T • TV) 

G E 0 4 3 4 o 

VP TTF (a,a 00 ) 

GF 043 S 0 
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440 


4 c 0 


4*0 


D T T F ft Ifl) fYT(?.n, T -l,TP) 

WOT TP ( f » £ P 0 ) (70 ( ?, T ) #T = 1 *Tf.) 

r A N'l CD -7fC ( A # ) 
r 4K*Trc =7 ro ( i # ) 
ffiMf r T = 7rT (A J 
rM'TPT = 7fT (1 . ) 
mMTMl.'F 

\| Q T T F (t,i:40) 

id o x T r ( A . f 3 n ) 

,JD TTF (4 , c ?n ) f v* ( T t n *xa.( I .?) ,yA^ ( f , 1 ) ,vn» ( T ,P) *7Aj < ! « l) *7K' ( T «P) 

1 *L^ C T) 

MOJTF (A »F?0 ) 

i.f O T T F (A.A4A) 

IvOJTF f*. c P0) ( vrr { T ) , v rr ( 7 } , /rr f T ) , 1 r 1 . 1 , act ) 

TF (K'rorF.FO.l^ CO T r 
TF (TFv»',Fn t o) rr to 4^0 
FVP = ) /?* \ 

MJHs (MCJ-1 ) /P*P 
4A;P = PT / ( P # oFKO ) 

pacsf^Tf* (3.** *' <*)-«!* (A\r-)/ r ^?(^^) ) / n ,-rnc (3 .«ang) ) 

pvjt = dt/?«-ata* f f a r j 

WJH]SWJW-1 

♦ 1 

y (T*P) =STM (PMT ) 
v (4* P) =-ccs ( pht ) 

Y (4 * MJM1 ) = -Y <4 , P ) 

Y ( ** • M J U ? ) = -Y {? .P ) 

Y ( 4 .MJV-P) =Y f 4 , P) 

Y(?,MSJ1)=-V(3.3) 

Y { 4 « r i 9Jl ) = -V (4 . 7 ) 
on T O 4*0 
FM?rK'SJ/P 
N'JH=*'<CJ/? 

ampisi v .o a B*(i.-crc(P7/c? # «pr ?)) ) 

AMG? = 1 .-0 . f* (1 t .rpc (I.^CT/ (? ,*FM? ) ) ) 

AMf] = ATfir ! ( corj ( <\ ) / t fC \ ) 

aMO*Js&TSV { COOT ( 1 v.fin ) /AM? 3) 
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JSP 

30 o 

r (T)=XXT(T)-YY|(T) 

JSP 

Pin 

On in J=1,KJ 

JSP 

?pn 

YL (T *J)=YYL( T) *rrr’vL c J ) <*r ( t ) 

JSP 

?? 0 

no 70 j=i ,\J 

JSP 

?4 0 

FJ = J 

JSP 

?*n 

rwejaMj 

JSP 

?60 

PST t Jl =0 .S* ( 1 . -OOF (FjoOT/FVf J) ) 

JSP 

?7P 

SLOPS ( J) = ( XL (? . J 1 -Xl (KJ])/(?.^J) 

JSP 

?P 0 

no on k= ] , y? 

JSP 

?oo 

W-Y (7 .K ) 

JSP 

30 n 

TF (TCYf\MF,0,.nP,Y t rn,1) vyr.] t 

JSP 

310 

IF (Tqvw^p^n.Mr.Y.rn,?) vv = -i # 

JSP 

3? o 

TF (K’,Fn.(M 1 ?. 1 ),rC i K/r,MP) W = 1 . 

JS° 

330 

TF (K.Fn.M?) VY=1, 

JSP 

340 

YTT ( K ) =YJ + OJ»vy 

JSP 

3F0 

HO IP Jsl,MJ 

JSP 

360 

X ( J.n = XL( 1 . J) OFF ( J) * ( YTT (K } -Yt (in 

JS F 

370 

no 170 k=l ,M 1 

JSP 

3 P o 

kK =jo*k 

JS D 

300 

l = * 

JSP 

400 
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TF fY.Fn.*]?} t = 1 

JSP 

410 


ry i ) = *vl n ) ♦ fy yl (?) -hi ( 1) )* (XTT a ) -yl (1 ) ) / (2.*PJ) 

JSP 

4?0 


py (**•?) =xxl n ) + t xxi. (?)-)fvLn > )* (*tt fK + n-vt m >/i?.*oj) 

JSP 

4**n 


TXCK»f,n=XyTn)*(VK T (P)-XVT(l))*(XTT (L )-YL (1 )) / (?.*PJ) 

JSP 

440 


TV(KK,?)=XXTri)*(y»T(?)-XXT(]))*(XTT(if*i) -YL ( 1 ) ) / <?.»°J) 

JSP 

4S0 


CH (**) =c (t )- (r <n-C (2) ( 1 .+Y ( 4 ,k-) ) 

JSP 

46 0 


nn IPO J=1 .MJ 

JSP 

470 


WPAWFL = (*-1 ) J+J-l ♦ TDftNFf. 

JSP 

4P0 


no QO T=l,? 

JSP 

40 0 


KT 1 =K*T -1 

JSP 

son 


*T C-h'=\ . 

JSP 

Sin 


tp (K.Fn.Kip.&KP.i.co.n rn = i 

JSP 

*?n 


TP (TPYv.ro. o) or to 4n 

JSP 

* 3 n 


TP (yn.Fr.i.OD.kTi.pn^j o r to ro 

JSP 

*40 


on to po 

JSP 

ssn 


ir (x',po.Ni?.Avr.KTi .pp.n sifk=-i. 

JSP 

S60 

cn 

COK'TT^i'f 

JSP 

S70 


TP P<T1.P0.*(N1P-1) .OP.*ti.FC.M?) r ’ n T 0 70 

JSP 

*P0 


TP f^Tl.Pn.N?) po TO 7o 

JSP 

*P0 


YYaY'( 9 ' f Kin 

JSP 

600 


'77 = Y ( 1 ,KT1 ) 

JSP 

610 


on to on 

JSP 

6?0 

*0 

y Y = - 1 . . 

JSP 

630 


77 = -Y (1 ,KI1 J /Y {P,KT1 ) 

JSP 

640 


on to on 

JSP 

6*0 

70 

YY = J. 

JSP 

660 


77=Y (1 ,*T1 ) /Y (P.KT 1 ) 

JSP 

670 

00 

0 OK'T T K M •£ 

JSP 

6P0 


y\i (K PftK'FL « T ) = y ( J < K T 1 ) 

JSP 

6Q0 


y\\ (K o AKiPL • T ) =Y J + P J*YY 

JSP 

700 

Of) 

7M (^OftNFL • T ) =7J*CJ*77 

JSP 

710 


YK= 0 ,Cfl. ( l.*Y ( 4 .*) ) 

JSP 

770 


TF (TSY^.FC.P) yk=p,*yk-i # 

JSP 

7P0 


yrp (MD&rFL) =xxi M) + ( YY L(?)- Y xl < 1 n <* y ** D S T ( J) *CP ( *K ) 

JSP 

740 


TF ( anc (Yfv (K'PArFl •?) -Y\ (mca^FL* 1 )) .LF. 0.0001 ) GO TO 100 

JSP 

7 c n 


yOd (mdanfl ) =YL ( 1 ) *YK» (YL (?) -Yl (1)) 

JSP 

760 


70 D (MP AMFL ) = 7 V t K DA^PI. < n ♦ ( 7,s (t> PA NFL . ?) (f'CANFL# 1 ) ) * ( YCP ( TP fiMFL ) 

-JSP 

770 


1 YM (K PA^FL , 1 1 ) / ( Y ( * ° .n V p* L . ? ) - Y N.‘ (NP ANFL , 1 ) ) 

JSP 

7*0 


on to 1 1 n 

JSP 

7Q 0 

1 no 

70 C (NOftMFl ) = 7J 

JSP 

000 


YCP ( MD ^K-FL ) =Y>‘ f * p A * F l_ • 1 ) 

JSP 

Pin 

n o' 

pn^T t *m iF 

JSP 

p ? > 


w a p a^Fi. ) = Y xl r n * ( x Y L ( ?. ) -x y l ( i) ) <*yy +oofvl ( j ) *o- (kk j 

JSP 

P? 0 

IPO 

r n h'T t^mjf 

JSP 

P 4 0 


JC*JC+*1 

JSP 

PSP 


LAfTsnoanfl 

JSP 

«6o 


pftupm 

JSP 

P70 


fmp 

JSP 

npp. 


nvFCL&Y (ns a TGF,?,0) 

JOF 

10 
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r 

c 


1 n 


po 


nn 

40 


Cfl 


Donr-oAM jrTOFr j 0F 

TO CFj li° THF JFTOFF J K F ^ i • C> f p rPFPFTOTFM T M AJ C TX A*.P CO^Pl.’TF THF JQF 

CAMPED TFPMC JOP 

ptmfmotpn iwnm) j 0F 

ro^wnM /ofom/ uAt ffw , y op (? 00 ) ,yop (? on) , 7 TP (Pon) , xLF (00 ) « YLF (SO ) , *T JOF 
l r ( c 0) ,PST (PO) , fp (C^) .XV (POD) ,YV ( 100) ,FM(P f R) (200,2) ,Y* (200,2) ,7 JOF 
PM (POO, P) • ' J I n T H (0 ) ,vc CM (?C) .ov-FFP (FO) , m A |_fo ,RJ <?l ,8 ) .fx (95,2) ,TY (QSJOF 

3 .P)^r(iA 0 ,S),cT(if 0 ,c),i/(?) J 0 P 

common / af°o/ . a^p,pi ,pp,ct (70 ) ,ct ( ?r») ,rn (30) ,n*M ( 2 , ton) jof 

common /roMFT/ (P) ,ncj,noj (F) .l act.mjv,i (3,5) ,MJi N ?n,5) ,jjof 

lOAKFL.MJJ(F) ,Kg (7) ,* NJ,Njo j 0 p 

rnvMOM /Ann/ ro ( i no) .r»* (?o j , ppfak (pj ,oud <p t i*) ,o al (30 ) , isy m * vmh, vuJpf 
1 ,TF»D,FrD.CAWLFr>.r A^|.FT,r*> TFC .rAPTFT # yj, Y J, 7 J,PJ* ALD,CPFF .TUlTCTP JOF 
ro^MOM /PAP AM/ Al PT, ALPC, ALPF, rPF.cPF.TW^TOP ,NPPn, FFTOH-T, ATT JOF 

Common /rn<?T/ LTP^lj pam) ,*;j«v<F) .I.pamfi ,IFMTN,LPAN 2 ,EXlT,PTlALtTVjOF 
1 T$T.PF (F) ,mfp JOF 

DFwTun 0] j 0 p 

J \ = L P A M'F ♦ \ J 0 p 

ATh=-ATT JOF 

a =°t JOF 

tr=i jof 

) .JOF 

MOrKM(l) JOF 

MC=TFMTM JOF 

T^-l JOF 

rOMTMItF JOF 

U. = l JOF 

TF (M«(P).PO.O) on TO 30 JOF 

TT = 1*MC<= JOF 

TF ( M W(3),MF # 0) no TO ?0 JOF 

rwrpn=rw t \ ) ♦rw ( T T ) Jof 

nn T n ah jof 

TTT=TT*MCS JOF 

rHOpnsfM ( l ) +fv- ( tt) +rn ( r T T ) JOF 

on TO 40 JOF 

CMCPn = rw(n JOF 

OONTTMOF JOF 

04(1. WT^'O ( Ate ,| PA* F|. • l .a, I. CAN‘1 *l.PA^P,M(;pn*HFTn^T , ATH) JOF 

xc= ( vro n ) -YLF { TO)) /r»-ODp j 0 f 

0AM=7rc ( xr ) - (70C ( yC) - 7CT (XT) ) «VCP n ) /HA(_FP JOF 

AW(J1)s-CAM jof 

WDITP (01) (AV(K) t Krl*Jl ) JOF 

T J = 7 JOF 

MJslDAMFL-1 JOF 

COM TTMi.iF JOF 

CALL WIMP (AVM OAKFLfIJ,P,LOAVKl P AMP, NOPP .HFTOT, ATH) JOF 

TF (NW(?).FO«0) no TO 70 JOF 

TT=Tn*NCS JOF 

IF (MW (3) ,MF # n ) no Tf 60 JOF 


PO 

70 

40 

FO 

60 

70 

PO 

OO 

100 

no 

IPO 

no 

140 

no 

160 

170 

lflo 

100 

POO 

?in 

??o 

?30 

240 

2?o 

2*0 

270 

?«0 

PQO 

300 

310 

320 

3 ?n 

740 

3 f n 
360 
370 
3P0 
30 0 
400 
4\ 0 

4 ? 0 
430 
440 
4 S 0 
460 
470 
4P0 
40 0 
FOO 


88 



60 


7n 

an 


co 


too 


1 1 n 


140 


rwrL=r.w(T^) 
nn rn on 
TIT=TI*KCS 

CHOOHrCH (in) ♦ <>• ( T T ) +CH (I Tn 

CMFL=CW(TG)+CH(TT) 

no to °o 

C»-«opn=rH (in) 

chfl=cv ( T n ) 

roVTTN'MF 

Fro = rHrLvrHOpr 

xn = (yco (XJ)-YLr (Ifi) ) /r^r.pn 

rnw= 4P5 ( YC-Ffc ) 

rrci =Fro-n # ni 

FCD?=FCc*n.oi 

C7 = o. 

TF .-xr> .LP.0.01) no TO QO 

70 i =zro ( xC i 

7r?=70T(xn 

07 = 701- (7C1-7C?) ovrc { I J ) / u fi LF° 

COKTTMt'F 

JF ( APS M .-XC) .1 F.O.M ) 07 = 0Af 4 TFO- (OAMTFP-Cfl^TFT) *YOP ( I J ) /HAl_FP 
TF ( XO .1 T . FOP] ) 0A* = 07 

IF (cn^.LT.n.oon CAM=c7-n.c»n P(LL ) 

if (xC.nT.FCf5? # A*n.APF (I.-XC) .GT.O.nl) OAM=-nr (LL ) +C 7 

TF (Aosn.-xci .1 F.O.Ol) 0AW = -PF at ) *C7 

TF (oxiAL.LF.O.ni . A^P.xO.nT.FCPl) 00 TO 140 

T *=■ (PTUL.nT.n.on no to lin 

TF (IJ.*F.Mfl) no TO 140 

T r (Aqn(xC-l.) # i F.O.Ol ) no t 0 )?p 

JK = 1 

TF (NWnj.VF.O.AM'.IJ.OT.I PAM) JK = ? 

= T J«- ( MCS- TO ) f J* } ♦ ( T£- 1) *A'W (J*+l ) +1 

X0] = (XCO aC M ) -XL C ( TO) ) /OHOCP 

rflM) = 7CP(XOD-(7 0P(YCl)-70T(xri) ) *V0P ( TJ) /HALF c 
CAv= (C AV*CAM ^ ) /? m 
07 = 0 A" 

no to 140 

TF (TJ.OF...JW) {1 -Ll ) ,A^.TJ l l.F,»'JV?(t.U.)) no TO 130 

IF (IJ.f5F.*MWl (MU P.T j,Lf.vjv?<?aU ) on TO 140 

IF (TJ.0F.MJW1 n.l U .ANO.TJ.l F.“JWP(3,L.L) ) no TO 140 

CAM=C7 
no to ion 

OflW = 0A^TFP- (CAf.'TFF-.0 AVTFj) <>Y CP ( T J ) /H At FP 
no TO 140 

if (xr.nT.Fooi) no to i4n 
no to ion 

0 O N‘ T T M J F 
AW(J 1 )=- 0 Am 


JOF Fin 
JOF 

JOF *30 
JOF *40 
JOF *90 
JOF *60 
JOF *70 
JOF FftO 
JOF S90 
JOF 60n 
JOF 610 
JOF 6?0 
JOF 630 
JOF 64 0 
JOF 6*0 
JOF 660 
JOF 670 
JOF 6P0 
JOF 690 
JOF 700 
JOF 710 
JOF 7?0 
JOF 730 
JOF 740 
JOF 7*o 
JOF 760 
JOF 770 
JOF 7P0 
JOF 79 0 
JOF POO 
JOF PIP 
JOF P?n 
JOF P30 
JOF P40 
JOF PFO 
JOF P 6 o 
JOF A70 
JOF PPO 
JOF PQO 
JOF 900 
JOF 9 l n 
JOF 970 
JOF 03P 
JOF 940 
JOF 9^0 
JOF 960 
JOF 970 
JOF 9 P 0 
JOF 990 
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l c o 


If o 

c 

c 


wditf ( on r &w (K) .ksi t ji ) 

IF ( T J . o F . (_D A n 1 .AMO. TJ.L T .LFAN?) MP = NVi (?) 

IF ( TJ.OF.lpAN?. ANQ. TJ.L T .LPAr-Ft) MOrNw (3) 

TF ( TJ.Fq.mjw? (1 .LU .OP. TJ.fq.mjw2 {?. LI) ) U.=LL*1 

IF (TJ.FO.MjVf? (3.LU ) U =1.1 + 1 

IF (LL.r.T.NFP) Ll.= l 

TF (IJ.LT.Mp) co TO 150 

T Or J P ♦ l 

MGsMf;*NP 

TF (IJ.FQ.IPAM .OP.TJ.FO.XPAN?) TF = 1 
TF (TJ.fq.loaM .0P.TJ.FO.LPAN?) LL = 1 
TJ=I J*1 

MJrNJ-) 

TF ( T J.LF.t.DAKFL) r-o to 
TC=TO+ 1 
n = Pp 

TO=i 

K'OrMW ( 1 ) 

MOrf W (1 ) 

TF (flOFfPl-P?) .IF. 0.001) 00 TO 160 
IF (IC.LF.?) 00 TO 10 

FONT T M HF 
RFTl , ok » 


J0F1 oo o 
JOFioin 
Jon o?n 
JOF 1 0? 0 
JOFioAn 
JOF 1 050 
JOF 1 06 0 
JOF 1 070 
JOFloon 
JOF lOOp 
JOF 1100 
JOF 1 110 
JOF 1 1 ?0 
JOF 1 130 
J0F1U0 
J0F1 150 

JOF 1160 

JOF1170 
JOF 1 IPO 
JOF 1 IPO 
J0F1 ?0 0 
JOF1?10 
J0F1 ??0 
J0F1?30 
J0F12A0- 
JON 10 


FMp 

nvFPLfiy (IIC5TOF.3.0) 

OPOOP-^M JF TON JON ?0 

to cry yp TMf JFTOM THFU«FK;CF OOFFFTCTFmt matoICFS JON 30 

OT mpvp TON AW ( 300 ) JON 40 

common /cq of/ K-corp jon 50 

COMMON /OF OM/ Mfi(,FFV;.yCP(PnO) .vrp ( p n0 ) ,7CP(?00) .XLF(50) ,YLF(50) .XTJON 60 

lF(5n).PSI(?0).rw(o c ),XV(?00)«Y”(in0>.5M(P.F).XN<2r)0*?)tYN(?0n,2) .7 JON 7 0 

?m (POP ,?) . W' T n T’ J (Q) . YCOM (?=) ,FVFFD (C 0) ,MALFP.FJ(21 .6) .Fx (95.?) . TX ( 05 JON po 


3.?) .SC (1 *0 .5) .c T (1*0,5) .LC (3) JON Qo 

common / A F c 0 / AM) . AM?,F1 ,P?,CL (30) .OT (30 ) ,cn (30) .OAM (?,1 00) JOM 10 0 

Common /CONST/ nQc^.Cw.ni ( p) .NSJ.NOJ(S) .LAOT.MJVl (3.5) .MJw?(3,5) .JJON no 

IDfiK FL.MJJ (5) .Nw ( 7 ) ,f NJ.NJO JON 1?0 

COmmom /papam/ ai.PT, ALOC,ALO?.rnF.cnF.TW.T0F.N0PC t HFTGMT.ATT JOM 130 

COMMON /Ann/ CD M 00 ) ,C M ( ) , CDFA.K ( fl) ,S»‘ ( P (P , 1 5) .OAL (30 ) . TSYM. VMII, VllJON 140 

1 ,TFMP.FC0.04M L PP.r AMl.FT,CAMTFP,rAMTFT, YJ.YJ.7J.PJ. ALP.CRFF.TwiFTP JON 1 *= 0 
common /COPT/ l TOTAL .LPA^'l .Njw ( c ) .LPAMFL. TFmtm.LPANP.FXIT.PTT AL .TWJOM l*f> 
lTFT.nF(C) .NFP JOM 170 

DFWT Mn 0 ? JON IPn 

LP1=LT0TAL+1 JON ICO 

mj=l d anfl+mcj< i) jon ?no 

MCCMst AST+MCJ ( n JON ? 1 0 

I p H T = 1 JON ??0 

AT Or A TT j 0 N ?30 

ATT = -ATC, JON?40 
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Jt. = L AFT.) 


JON 

? c n 


TMMs 1 


JON 

'26 n 


LM = 1 


JON 

270 


LMi = i 


JON 

2P0 


JMNs T 


JON 

?Q0 


v^iir=v M ij*ftL°c 


JON 

300 


Mk- = 1 


JON 

310 


T=lA9t*i 


JON 

3?0 


n = i-jPfti^FL 


JON 

330 


PALL M4TOTX (Aw.j TrTAL«L D AMPL*v w lT.T* M COM*MJ«IPhT.INN,LN.LNl 

.TPMO 

, JON 

340 


1 L°AM 1 . T^vm .KCnrr ,fy TT.Lpan?) 


JON 

3*50 


v d t t r (on < Aw <*) .W--1 .LTptal) 


JON 

360 


*T = ? 


JON 

370 


M T =L TP T fl l -] 


JON 

3P0 


LT=L A^T + ? 


JON 

3QO 


\/MD = \/M|)f 


JON 

400 


*J=LT 


JON 

410 


TP (LI.^T.LAPT) *J=LT-JPAMFL 


JON 

4? 0 


CALL mATP T X ( A v * L T PT A L « L c A K F L . wwp 1 1 _y . wcon , V J . T PH I « TNN.LN*LM 

.TFMP 

.JON 

430 


1L°A M . T SYM . kXPTF .fy T T . L p AN? ) 


JON 

440 


WPTTP ( n 1 ) (Au jf K) .K=l ,Ltc T ad 


JON 

4 C 0 


TF (KJ.LT.^J.rsP.KJ.FP.LAPTI FP TP 50 


JON 

460 


TOHT=iewT*i 


JON 

470 


UJ = M J + NCJ ( TMN) 


JON 

4P0 

50 

CONTINUE 


JON 

490 




JON 

POO 


T r (*J.FO.NJI) no TP 30 


JON 

510 


on TO 40 


JON 

520 

in 

JMK'sTMN 


JON 

530 




JON 

540 

40 

TP (H'J.FC.WJJ< JNN) ) Tpmt = i 


JON 

550 


TP (LT .PT.LPAVn.) nr to f n 


JON 

560 


TP CLT .PO.wjwp n .LI ) . np .l T .FO.mjw? (?.LL) ) LL=LL + 1- 


JON 

570 


TP fLT.PP# M J w ?M«LL) ) LL =L L +■ 1 


JON 

5P0 


TP (LL.PT.mfp) LL- 1 


JOM 

5CO 


TP (LT .PP.L°AM .AK'P. LT.LT. L p ANP> NF=NW (?) 


JON 

600 


TF ( L I. PF.t D An-?. amT.LI.LT.!. pampi ) mp=nw(3) 


JON 

MO 


TP (LT.LT.MP) no to fo 


JON 

62 0 


M«sMR*Wfl 


JON 

63 0 

co 

TP (LI .P0.L°AM1 . PP.LT. pc. LPAK»?) LL = 1 


JON 

640 

* 0 

TPNT TM(|C 


JON 

4CO 


‘ TP (LT .PP.LTPTA! ) PP TP 7 o 


JON 

6*0 


Pp TP on 


JON 

670 

70 

PPM T K, L ! P 


JON 

6P0 


.1 TP>M T = 1 


JON 

690 


m k j = l o A N F L ♦ N’C J ( T ) 


JON 

700 


JMM=1 


JON 

710 


TNNsl 


JON 

720 

00 

rOMTT^MlP 


JON 

730 
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K'TrK'T + l 


JON 

740 



JON 

7 C 0 

T F (LT . r 0.LTOTit ) GO TO Qfl 


JON 

7*0 

T r (LT.FO.LWT) *o TP inn 


JON 

770 

t.TrUM 


JON 

7P 0 

GO TO HO 


JON 

7Q0 

L T = L P ANFL ♦ 1 


JON 

POO 

GO TO 110 


JON 

Pi 0 

1 . T = 1 


JON 

P?0 

CONTINUE 


JON 

P 20 

J°=LT-L fi ST*LFANFl 


JON 

P4 0 

JPl=JD.t 


JON 

PFO 

TP* ( JP.FP.ujJ(|/'l) 1 LNlsL^l*l 


JON 

p* n 

T F fJPl.FO.wjjd L N = |_ N ♦ 1 


JON 

P70 

T* (XT .LF.L t CTAL ) GO TO 10 


JON 

po n 

ATT=ATG 


JON 

P 90 

OFTl»P M 


JON 

POO 

FMp 


JON 

01 0 

ci!PPOlJTTNF WfiTOTV ( a W , L TOT A L • 1 p A Np L • VM| t . T , vCON • M J • I PH T . 

TNN.LN, LM 1 

.mat 

10 

1TEmp*lpah1 .TSv^,kcPPE«Fytt.I p ANP) 


MAT 

?n 

TO GPWPIITF TPF JFTC* !*<*!_ UFNCF COFCfrtOXFNT MATRICES 


MAT 

?o 

nTMFMSIPN AW(1) 


MAT 

40 

niMFMFICN '-'(A), \-l(P) 


MAT 

GO 

PTMFMFTOM SV(300) 


MAT 

60 

common /GFO w / WALFCM. *CP ( POO ) • YCP ( POO ) ,7CP ( ?00 ) « XLE ( SO ) 

•YLE (SO) .XTMAT 

70 

1F(F01 ,PST(?0) ,CM(QC) a yv(?nn).vv(ion) . sm<p.p> ,v'N (200*2) ♦YN{2oo f ?) , 

7“AT 

PO 

?M(?nn.?) .width ( 0 ) .yrnn (?<=) .cvffp (?m .h4(_fb,<;j(2i ,ei ,F* (<35.2) ,tx ( 95 MAT 

on 

3*?).Sf(l*O.F),sTtl^O,*=),{.C(?) 


MAT 

ion 

COMMON /CONST/ mCf.NCv.’M (P) .NFJ,NCJ(F) ,laft,mjv*i (3*S) % 

HJW? n.5) , 

JM AT 

no 

!OANFL* m JJ( c ) «MW(?) *MNJ.NJP 


MAT 

l?o 

Common /ccurMF/ C (?) ( 1 n ,41 ) , y ( 1 0.41 ) ,FLORR { 1?) *XL (?» 1 

c ) . XTT (41 ) 

.MAT 

130 

1 y LL ( ^ 1 ) 


MAT 

140 

COMMON /AF°o/ AMI v a?,CL (?<M ,CT(30) ,cn(30) 

100 ) 

MAT 

1*0 

COMMON /PAP4M/ At DT, AL.PC . AL oc . CPF. FOF, TU ,x n F ,NC-rn. HE TGHJ , ATT 

MAT 

160 

fohtvalpncf ixd.u.svdn 


MAT 

170 

PT = 3.1M*0?* C 


MAT 

IPO 

7JFT = mC0^‘ (P* ) 


MAT 

ion 

Tl)CP=YCOK ( ?4 ) 


MAT 

?n o 

IF (Tticn.Fn.?) v/Mn = n,? 


MAT 

210 

C“U=C(1) 


MAT 

??0 

LG = 1 


MAT 

?3n 

TF (MGPP ,F0. 1 ) l Or ? 


«AT 

?4 0 

Wlfl)sO t 


MAT 

?ep 

vi ( ? ) = 0 , 


MAT 

?60 

OFjrCOF 


MAT 

?7 0 

VDTrVMU 


MAT 

PPO 

TFMrTFMp 


MAT 

?oo 

MM?=MNJ-1 


MAT 

3 0 0 

N 1 rNM J-l 


MAT 

310 
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10 

30 


?n 

40 


50 

ao 


70 


NPaf-Mj-p 


MAT 

3? 0 

N3=K’MJ-3 


MAT 

330 

MJHr (MCJ4-1 ) /?♦! 


MAT 

340 

I c (I9YM.FO.Ol 


MAT 

3*0 

TP (Tcym.fp.O) ►•DsMCj-i 


MAT 

360 

TP ( TCYM .MP. 0) kp=n<;j*i 


MAT 

370 

NJTsWJW. J 


MAT 

3P0 

17 = 1 


MAT 

39 0 

TFF=1 


MAT 

400 

'MV-MJ ( \ ) 


MAT 

410 

MM=fv w ( 1 ) 


MAT 

430 

tm r= i 


MAT 

430 

TPK = 1 


MAT 

440 

L 1 sL°fl wp L * 1 


MAT 

45 0 

L&cti=LAct-1 


MAT 

460 

T r (T.fiT.LASTl FP Tf 10 


MAT 

470 

T J = I 


MAT 

4P0 

PP TO 3 0 


MAT 

49 0 

tJ=T-JP4MPL 


MAT 

500 

CO^’T tmuf 


MAT 

510 

np ?po J=1 • L Ac t 


MAT 

*30 

MT=J-TFF*1 


MAT 

530 

PMsNN 


MAT 

*40 

TF ( J.GT.LPAN1 .AMP .J.LF.LPAM?) 

TFM = ? 

MAT 

*5 0 

IF { J.GT.IPAM2.AMP, J.LF.LPAMFL) 

T*n=3 

MAT 

560 

TF ( J.GF.LPAM1 .AMP.J.LT.LPAWFU ) 

FC TO 10 

MAT 

570 

FP TP 40 


MAT 

5P0 

MM— M *4(3) 


MAT 

*90 

TF ( J.PF.loam^.AKT- .J.LT.L^^^L) 

K'fcsMW (3) 

MAT 

600 

fOMT TNIJF 


MAT 

61 0 

T r ( J.PF .L°AMFL. AMP. J.LT.MJJ (JMnn MMsM^J (IMP) 

MAT 

630 

C»-'Ppn=Cw ( 171 


MAT 

630 

IF ( J.FP.Ll 1 pp TP CO 


MAT 

640 

00 TP ^0 


MAT 

6*0 

I v=Tcr*i 


MAT 

660 

l 1 = M JJ ( T MP ) ♦ l 


MAT 

670 

NL=M JJ ( I MP ) - 1 


MAT 

6P o 

TF (ML .fo.lactd FP TP 7o 


MAT 

6Qn 

T r (J.C'P.MU T^naiwn*! 


MAT 

700 

comtimuf 


MAT 

710 

x 1 =v M ( J • 1 I-XPP (TJ) 


MAT 

730 

X’SXM( J« Pj -X fp ( T J) 


MAT 

7^0 

X1? = XM(J,?)-XM(J,1 ) . 


MAT 

740 

Yl?=YM(J,?)-VN(J.l ) 


MAT 

7*0 

71?=7M(JfP)-7M (j,i ) 


MAT 

760 

no ?tn t t = i « 3 


MAT 

770 

TF (TT.FO.n FP TO PO 


MAT 

7P0 

M = \ 


MAT 

790 

np TP po 


MAT 

POO 


93 


on 

on 


inn 

UP 


IPO 


nn 


Ms? 

con 

Y0 = f-1 . ) **U*YCP ( T J ) 

Yl=vM( J. 1 ) -Y r 
YP = Y*! ( J.P) -VC 
XY* = x 1 *v 1 P-v | p 

no poo *k=i*Lo 

if (k-K.Fo.n oo to inn 

RFs-1. 

7C=-P.* (7CD ( T J ) ♦ wr j oht ) + 7CP ( TJ) 

FCONrl . 

nn to no 

r,F = i . 

7 r=7fo ( T J) 

fook=o . 

CO^TXMIJF 
71=7M{J,1)-7C 
7P=7M( J.P) -7C 
X7 J= X 1 *7 1 P-7 1 * ^ 1 p 
UCPW-.7] *y 1 ?*ATT*FCnN 
Y7T= v 1*71?-71°yip 

AUPl=XYK*XYK>y7J*X7J+Pl*V7T*Y7T 
RlPl=5;npr (Xl«X 1*0] *Y1*Y1 *P 1*71 *71) 
PPPl=SOPT ( XPoyp*Pl*Y<?*Y?+n 1*7P*7?) 
ijiipis (X?*xi?+Pl^v?«Y12*Pi*7?#71?)/0PPl- 
11/R1R1 

PI PI = (1 .-^l/D]Pl ) / <Yl*Yl ♦71*71 ) 

PP°1= n.-X?/P?Ql)/ ( Y P*YP +77*72 ) 

IF (I.PT.LPAr F L ) 00 TO po 
Fl=tmoi* (UCO M -*> x YK ) *OF/AL q l 
F?= (-Y?<*0POl ♦Yl^Ol B] ) *C-F 
TF (J.OT.LPA^FU 00 TO 1 ?n 
00 TO ppp 

P7 = n. 

F4 = n . 

F1=?.*F1 

r,n TO P?0 
comt^i'F 

TF (J # L C .L D ^'F|.) 00 TO l F o 

T r (APP(Pl-op) .LF.n.POi) CO to tap 
aLP? = VY^*XYW' +Y7J#X7J+P?0Y7 f*Y7I 

DXPp = <;0PT(Xl«-xi*.Pp*Yl*Yl+o?*71»7l) 
Opo? = ^nDT(XP*XP+ c ?*Y?*YP+PP*? 2*7?) 

»JUP? = ( X?*X ] P*PP*Y?«Y 1?*P?*7?*71 ?) / PPPP- 
D/pIpp 

P1PP = M .-Xl /PI PP) / {Y1*Y1 ♦71*71) 

0?Pp r ( 1 .-XP/FpP?) / (Vp*Y2+7P*7p) 

on to ion 


MAT Ain 
mat Ppn 
MAT Ain 
MAT A40 
mat p?o 
mat P6n 
mat 870 
MAT PPO 
MAT P90 
MAT 900 
MAT 910 
MAT Q?0 
MAT P30 
MAT 9 40 
MAT 9F0 
MAT 9fO 
MAT 970 
MAT 9 A 0 
MAT 990 
MAT 1 000 

matioio 

MAT10?0 
■ M A T 1 0 3 0 
MAT! 040 

(X1*x]?*P1*Y1*Y12*B1*71*71?MAtio5o 

matiopo 

MAT1070 
MAT1 0 A 0 
MAT1 090 
MAT1 ICO 
MAT! 110 
MAT11P0 
MAT1 130 
M A T1 140 
MAT 1 180 
M ATI 1 6-0 

m AT1 170 
m AT 1 1 A 0 
MATl) q n 
MAT1 POO 
MAT1P1 0 
MATl??o 
MAT1 ?3 0 
M A T 1 ?40 

( XI *X 1?+P?*Y1*Y12+P?*7l *71?MAT1 2*0 

MA T 1 ?f 0 
MAT 1 ?7 0 

mati?po 

MATIPQO 
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140 

1*=0 

1*0 

170 

\ 00 
ISO 

?00 

?I0 

??0 


*LP?=AL p ! 

MAT1300 

IJ|JP? = l|||0 i 

MAT1310 

G?p?=o?pi 

MAT1320 

oip?=oipi ■© 

M ATI 330 

roN’TTMur 

MAT1340 

TP { T *OT .L AST ) op JO IPO 

MAT1350 

Pi 3s|lUPl«X7J/^l. PI 

MAT1360 

fi ?=miidi* nirnw* X vK ) /alpi 

MAT1370 

p 13=7?oG?Pl-71*P]Rl 

MAT13A0 

oi ?=-v?«g?pi *y \* k \ pi 

MAJ13P0 

TF ( J.LF.IPAHFL) OH TP 1*0 

MAT 1 40 o 

F?? = l|||a?*X7J/Al cp 

M A T 1 4 1 0 

PPPsUI!°P*XVK/Al_Qp 

MAT14?0 

0?3=7?«0?p?-71 *0)0? 

MAT1430 

PP?=-VPop?P2*Yl»PlPP 

M ATI 44 0 

on to 170 

MAT 1 4? 0 

F??=0. 

MAT 1 4ft 0 

0??=o. 

MAT 1 47 0 

FP7 = n. 

M AT 1 4P 0 

o?3=o. 

MAT14Q0 

Flr-ri 3»Y (4, IDMJ ) * (-1 . ) **M*F1?*V (3 , TPMT ) »PF 

MAT1500 

F?=0 1 Soy < 4, TPHI) * (-1* ) **N*G1?*Y(3*IPWT ) *OF 

MAT1510 

F3=.F?3«Y (4. IPMT j* (-1 . )o*m+f??*y ( 3,TOMT) 

MAT1020 

r4=P?3«Y (4. I PHI (-1 .1 **N*G??*Y {3* TPHTi 

MAT1F30 

TF ( J.LF.tPANFj.) pp TO ?10 

M ATI 54 0 

FlrFlop. 

MATI550 

F?r?.*F? 

MAT1560 

F?=?.*F? 

MAT 1 57 0 

F4=?.*F4 

MAT15P0 

00 TO pin 

MAT15S0 

Pl*UURl*YZT/ALPl 

w A T 1 ft 0 0 

IF (FXTT.LF. 0.001) OP TO ICO 

MAT 1 ft 1 0 

TF (MVJ.FO.l) r-p TP ICO 

MAT 1 ft? 0 

TF < TJ.GT.LPAHFL.AMP.IJ.LP.HJJ (1 ) ) \/MU = i . 

MAT1 ft30 

IF ( I J.OT.LOAK Ft .AKP.IJ.LF.VJJU ) ) TFMP=1, 

MATlft40 

COHTTMUF 

MAT1650 

F? = 0. 

MAT 1 ft ft 0 

TF (J.LP.LPAKFd 00 TP ?0* 

MATlft7P 

F3 = ljiipp»y7I /ALP7 

MAT 1 ftP 0 

F4 = P . 

MAT1 ft9 0 

FI =-Fi *yM|j*vHLt*? .oTFMp 

M AT 1 70 0 

fo=.f3»- . 

MA T 1 7 1 0 

OP TP ?10 

MAT 1 7? 0 

F1=-F1*V»M|*\/HL*TFHP 

M A T 1 7 3 0 

COHTTMJF 

MAT1 74 0 

TF <K*.F0.?1 Op TO ?30 

MAT 1 75 0 

w ( IT ) = (Fl+F?) *pMPPn*SM ( H T , T c h ) / ( p ,#FN) 

MAT 1 7ft 0 

TF CJ.LF.LPAKFl ) OP TP ?40 

M ATI 77 0 

TF (II.FO.?) Op tp ?40 

MAT17P0 
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530 

560 

5 p'o 

5*0 


570 


5^0 


50 0 
500 
310 


350 


K 5= T I ♦ 5 

W (K?) = (T 3 ^r 6 ) ^ruppr^^N ( ►■ T • I ^ N ) / ( p .*FN) 

CO TO 54 0 

W1 { T T ) = (FI ^F?) *rwoor*<;h- (MT , TPM) / (P ,*pisi) 

COMT TMIIF 
m^TIMIlF 
COM T K, I iF 

TF ( J.LT » MM ) CO TO 570 

T 7 = T 7* 1 

TFF= M «*1 

W W = f/ M * K AJ 

COM T K, M cr 

IF ( J.LF.LPA&FI ) Jfl=j+?»JD Ar FL 
tf (J.«t.lpamfi ) JA = j-{ pam~l+ JPANFL 
A w ( J A > =W ( 1 ) +w (?) *W1 (1 f (?) 

FV/ ( JA) sw (1) 

TF (J.LF »L P Afv F( ) r-0 TO ?ao 

Jl=J-l_PAMFl 

AW (J1 ) =w (3) 

vmiisVUT 

T^MpiTCM 
COM TNI IF 

TF ( TIJCO ,rr , 3 ) CP TO 310 

TF ( I ,0T # L p A N F p . A MO . I •LF.LAST) CO TO ?00 
CO TO 310 

no 300 K = 1 • JPAMFL 
AW (K) =0 . 

COM TMIIF 

TF (KtonF.FO.O) CO TO 630 

IF (THS°.NF # 0. AMn.7JFT.PT. 0.01) CO TO 410 
TF ( of j .LF.o.nooi ) co to 410 
TF (MMJ.FO . 1 . Amp . T .LF # LP ANFL ) CO TO 410 
TF (NMJ.FO.I .ANP.T .FT.lPANFL) CO TO 3?0 
IF (T.LF.MJJ(Ml) .OD.T.CT.LAFT) CO TO 410 
COM pillF 

TF (T.CT«LAFT) CO TP 410 
IF ( TPhT .FO.MJM) CO TO 410 
TF (TCYN.MF.O.AMn.TCMT.Fo.l) CO TC 410 
TF ( T°WT .LT.MJH) TL=TPHT-rcy^ 

TF < TPHT .PT.mjwi T L= T p w I -M JH 

pfmmo 0 ? 

TF (MMJ.FO.l) m JM 1=L d ANFL 
TF (MMJ.NF.l) MJK’] =v JJ (Ml ) 
m F=TJ-WJM1„ ( JDMT-1 ) *MCJ (NM J) 

FNNJ=MCJ (NNJ) 

P T ST J = ?0F 

PLX=nTSTJ*n.F»PT /FMMJ 
S7x = - ( 1 . — \/M| j ) 

TF ( T 1 1 FP . F O . ? ) S 7 X 1 • 


m At 1 70 0 

N A T ] P 0 0 
MAJ1 PI 0 
m AT 1 P? 0 
MAT1P30 
MAT1P40 
M At 1 P c 0 
MAT1PP0 
MAT1 P70 
MAT 1 PP 0 

watipoo 

matiooo 

MAT 1 Q 10 
MAT 1 O 50 
MAT 1 O 30 
MAT1 040 

matioso 

MATlPfO 

MAT1970 

MAT1QP0 

matioqo 

MAT5000 

MAT5010 

mat? 0 ? 0 
MAT?030 
MAT? 04 0 
MAT?0C0 
MAT?0ftO 
MAT?070 
MAT 50 PP 
M AT? 09 0 
MAT?100 
MAT?110 
M A T? 1 ? 0 
NAT? 1 3 0 
MAT? 140 
MAT?1Sp 
N A T? 1 P 0 
MAT?1 70 
NAT51P0 
NAT? 1 O 0 

mat??oo 
n AT??1 0 
N A T ? 5 ? 0 
MAT??30 
MAT5540 
NAT??SO 
M AT??6 0 
NAT? ?7 0 
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TOs ( TL-n *MCJ (*N- J) 

r ALL skip (TC.JpamFL) 

PO 3*o 

fFAP (0?) (SV <K) ,K = 1 . JPAMFl ) 

T F (JJ.FQ.MF) rn to 330 
TF (TUSP.FO,?) PXTHrHL X#PC T (JJ)*P./C M II 
IF ( IMSP.NF.?) PXTH=PLX^PCT { J J ) /TH 
00 TO 340 

330 rr (TUFP.FO.?) rxTH=Plx*pci ( JJ) «?.«n.5/CMi.i 
IF (TIIS Q .NF.?) PXTM = nLX*PFT ( J J ) *0 « F/JW 
*>40 CON'T TNUIF 

oppr=s7x «nxTM 
no 3^0 *1 = 1«JPAA'F| 

KK=K 1 * jo ANFL 

^0 A'J (KK ) =A V ( KK ) ♦pppp*cy (K 1 j 
3*0 CONTTMllF 

TOrNCJ (^NJ)-MF* ( (FP-l-ISYM) /?-l) *KTJ (MNJ) 
CALL SKJP (TO.JPANFL) 

DO 400 JJsIfMF 

PFAP (03) (SV (K) ,K = 1 , JPAWFL) 

TF (JJ.FO.MF) on TO 370 

IF ( IMCP.FQ.2) PXTHrOL X*P«I (JJ) »?./C”H 

IF ( TUSP.^F.?) OXTH=PLX*Pc I ( JJ) /TH 

no TO 3*0 

370 TF ( IUSB.FO. ?) PXTH=PLX»Pc I ( jj ) *?. on .S/C W U 
IF (IUSP.MF.2) rxTH = PLX^PSl(JJ)<>0 # ^/TH 
3*0 PP0P=S7X*PXTH 

no 3 Q o *1 = 1 • jpan'FL 
KK=K 1 ♦ Jp AN FL 

700 AW (KK) = AW (*K ) <*PO OP «FV (*1 ) 

400 CONTTNUF 
410 CON’T T W UF 

TF ' (FXTT.LF.0,00] ) no TO 4 2 0 
IF (MMJ.FQ.1) no TO 420 

TF ( IJ.nT.L D AK*FL .A^r.T J.LF.MJJ n ) ) v w n=l . 

IF { T J.OT,L p AivFi . .AMn,TJ.LF. M JJM ) ) TFmo =]# 
420 CPNTTMtF 

430 T r (T.LF.LAST) no TP 700 

IF (TPMI.FO.NJH) 00 TO f40 

TF ( TSYM.MF.O. A^O. JPMT .FO. 1 ) PO TO *40 

TF (Mnj.fc.) ) 00 TO Son 

if ( T j.pt.mjj ( m i j ) on to cpo 

TF <TPHI.O:T,vjh.AK’P. 7JFT.LF.O # 01) GO TO son 
IF ( IPHT .GT.NJH) L 1 = K> JH 

TF ( T<;ym .00.0. AMP. TPhI .GT.*JH) L1=MJH*1 
IF (IDHT.LF.NJM) U = 1 
N7 = l 

TF (Nw (?) .NF.O. A^.NWO) .FO.O) ^7 = 7 
IF (MW (3) • F . 0 ) M7 = 3 


MATP2P0 
M A T22 q 0 
MAT2300 
MAT2310 
MAT2320 
M AT2330 
MAT2340 
MAT 23 S 0 
MAT?3f 0 
MAT2370 
MAT23P0 
MAT23P0 
MATP 400 
M A T?4 1 0 
MAT?4?0 
MAT2430 
MAT?440 
M A T2 4F 0 
MAT?4fi 0 
MAT2470 
M A T? 4 P 0 
MAT?4Q0 
MAT2F00 
M AT2F1 o 
MAT?S?o 
mat?F3 0 

MAT2S40 

MAT2F50 

mat?f*o 

MAT2F70 
MAT?S*0 
WAT2FQ0 
M A T?* 0 0 
MAT2610 
MATP^PO 
M AT2* 3 0 
MAT?*AO 
MAT?^fo 
MAT?*tf 0 
MAT? *7 0 
MAT?*PO 
MftT?f QO 
M A T? 7 0 0 
H A T? 7 1 0 
mat? 7?0 
M AT273 0 
MAT2740 
MAT27F0 
M A T?7fr 0 
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440 

4*0 


AfO 

470 

400 

4<5n 
*0 0 


IF (MWJ.LF.?.flHr.MVl (?) .I F.m 

IP=N? 

MAT?770 

if <MNJ.LIT.3.AMP.MW(;>) .FP.O) 

I o = N 1 

MAT27P0 

IF (MMJ.FF.4.4MP.MW (3) .MF.O) 

IR = N'3 

MAT27P0 

IF (MMJ.F0.4.AMP.MW (3) .FO.O) 

TPrN? 

MAT2P00 

00 4 Q 0 K'P=1,M7 


HAT2P10 

*l=MJWl (NP.NJP) ♦ ( TP^T-Ll -ISY^) OMW (MP)-l 

MAT?P?0 

K? = LC (KP) ♦T°HI-L1-T*ym 


MAT?P30 

KNWrMW (NP) 


HAT?P40 

K 1 =K \ -KK'VJ 


MATJP^O 

= 1 


MAT?P60 

UD-rj 


MATPP70 

IF (K1 .OF* 0 ) GO TO 440 


MAT? PP 0 

K’lrKl ♦KMVI 


MAT2PP0 

K?=K?+ 1 


MAT2P00 

MD = ? 


MAT2P10 

00 400 K‘0=lfMP 


MAT?P?0 

?(IM=0. 


MAT2930 

on 4*0 kk=],kkv* 


MAT?940 

KL=K 1 +KK 


MAT?PFo 

jfi = KL + ?*JPANF(_ 


MAT?Q60 

*UVsSUV*SV ( JA ) 


MAT?97n 

CALL T T F 0 (PF*,kk*w,K1 ,k?, tJ 

.pi .ip) 

MAT?9P0 

no 470 KK=1,KMV 


MAT29P0 

KL=K 1 «■** 


MAT3000 

JA=KL*?*JP AMFL 


MAT3010 

44 = 1 . 


MAT3 °?0 

on 4 6 0 L = 1 • K h N 


MAT3030 

Ll=K]*l 


MAT3040 

IF (l.FO.KK) GO TO 460 


MAT30 *0 

AAsAA* (XCP ( T J) »YV (Lt ) ) / (XV r*L) -y V (LL) ) 

MAT306O 

Cnf^'TTNljF 


m A T3 n 7 n 

aw ( J A ) = AW( JA)-C!t^<v4a-DFc«flftftVM|!*VM|t»TF M P 

MAT30P0 

CnKiTT^iiF 


MAT3090 

K \ = K 1 ♦KMW 


MAT3100 

K?=K ?* 1 


MAT3110 

CO^T TMIIF 


MAT3120 

X o= T R ♦ 1 


MAT3130 

CPNT T M UF 


m AT3140 

rnr t t^mf 


MAT31F0 

TF ( KfOPF ,rn # n ) r.c TO ^40 


m AT31*0 

IF (mw (?) • F o . n ) N CTRTD = r r* 


WAT3170 

. f (mw (?) .K'F.n . aro # f>v (3) f F 0 , 

0) N<*T*IP = MC*»? 

MAT31°0 

IF ( mw ( 3 ) , NF , 0 ) MCTRIP=hr$*3 


MAT31P0 

IF ( ton: .LT.MJH) I P=MJH+ ] 


MAT3P00 

TF f TOHI.GT.T JM) t c = ISV^4.1 


MAT3P1 0 

IF (MMj.FO.t) GO TO * F 0 


MAT3??0 

TF (IJ.PT.Mjj(*i n GO tq «(, 


MAT3230 

TF (MMJ.FO.?) GO TO *60 


MflT3?40 

TF (TJ.GT.MJJ(N?) ) GO TO *60 


MAT3? c 0 
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IF ( VMJ. FO . 7 J GO TO C40 

T r ( I J.FT.MJJ (*»-*) ) no TO c-jn 

TF (MMJ.FC.4) OP TP 5?0 

TF (MMj.Fo.Q.a^n.T J.PT.MJJ (Nr j-4) ) 

LI = WJ_4 

T7=n<;tpxp 
no TO 570 

c 10 LI**’’ 

T7 = ^CTPIP*K]D 

no TO 570 

570 u rK'3 , 

• T7=rnTPTP 

no TO c 7 o 
*70 Lt=V7 

T7 = N'FTPTP + (NNJ-?) P 
no to C7n 

= OOVTTVHF 

l_1 =V7 
T7 = V CTPXP 
no TO 570 
5*n l!=v k, J 

I7=NSTPTD^ (*'VJ-1 )*VP 

no to *7o 
560 L1=M 

T7=K5TPIP+ (MNJ-P ) «MP 
c 7 0 COK'TTMHF 

17^17 * IF 
MT = V JT 

T r (ISVM.MF.O) MT=\JT-1 
kmwsNCJ(LI) 

no 430 KP=],K'T 
5UM1-0. 


K*J = KL*JPANFL 
T l:=KL-t p Af"FL 4, J D A rr L 

ro=K J-LAST 
CMM] s<;lim 1 +CV ( T A ) 

can 5tju?sqi!‘4? + AW ( JP) 

F&LL 1MER (CFC.^KW.KI ,17, TJ f Pl ,L1 ) 
IF ( ABStPl-P?) .LF. 0.001) no TO 5Q0 
CALL TN'TFO (PFF,K^W<,K1 f 17, TJ.P?,L1 ) 
no TO 600 
500 o F. F = R F 5 

600 no 470 KK= 1 . KNv 
KL=K 1 

KJ=KL* Jp AM PL 


MAT3260 

MAT3270 

MAT3PP0 

no TO 510 MAT3?Q0 

MAT3300 
MAT3310 
MAT33?0 
MAT3330 
MAT3340 
MAT3350 
MAT3360 
MAT3370 
MAT33PO 
MAT33 q 0 
MAT3A00 
MAT3410 
VAT3470 
MAT3430 
MAT3440 
MAT3450 
MAT3440 
• MAT3470 

MAT34R0 

MAT34PO 
MAT35 0 0 
M AT3 q 1 0 
MAT3570 
MAT3S30 
MAT3540 
MAT355 0 
MAT3540 
MAT3570 
M AT35 P 0 
MAT3 C P0 
M AT3*O0 
MAT3610 
MAT3470 
w 4 T 3 4 7 0 
MAT3640 
MAT34 C 0 
MAT36*40 
MAT3470 
MAT3^ fl 0 
MAT36PO 
MAT3700 
MAT3710 
MAT37?0 
MAT3730 
MAT37A0 


511^7 = 0. 

*1= M JJ (LI ) -mp<* vo J (LI) * (KP-1) **-rj (LI ) ♦ <I»-1 ) *NPJ (LI ) 
PO noo KKsl'KK'W 
v<L=K 1 + 
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M 0 

6?0 

6*50 

*40 


AC r> 
A A 0 


670 


T flsk'l.-I.P AMFL* JPA^FI 
tr=kj-last 

ft& = 1 . 

no fin l=1 *k^w 
LL=K 1 + L 

TO CL.F0.KK) (50 TO 610 

AA = AA* (XCP (T J)-YV(LL) ) / (YV (*L) -YV (t L) ) 

CON'TTMljF 

AW ( I A) =Ai.j ( T A) - cl'Mi 4* A-OFS«A^ #VM||*VM|I*TFmp*?. 

OOMT 1 Ml IF 
T 7 =I 7 ♦ l 
COFT T Ml IF 

ook'ttmuo 

<5**1 . 

TO ( IdhT ,Gt/ jm) «:k = -i, 

JT = T-i_ast*L°ak f^ 

KsVCOM-L ACT-K-C J (L*’ ) +LPAWFL 
J*Js*'CJ (L^) 
on ffo kksI.jwj 

kj=kL+ JPAMFL 
T A=*L-LPAMFL*JPANFL 
TP=kj-L AFT 
AA = 1. 

no fen i_ = l *JN’J 
LL=K*L 

TO (L.Fo.k'K) on to f c 0 

AA=A A* (XCP ( JT) -YV (LL> ) /(YV (KU -XV (LL) 1 

covTi^no 

AW(TP)=AW(T°)*AA* C K 

aw ( T a ) = AW(IA)-aa*V^l|^v^U»TF^P«-FK' 

TO ( T .FO.MCnH. A KT. I .LT.LTOTAL) MCCN=MCnM*MCJ (LM) 
TP (koopf.FO.O) on to 7Fn 

TO (TMS°.NP.O.Afp.7JFT.OT # r.on GO TO 7C0 

To (MMJ.F0.1) r-o TO 700 
TO (TJ.PT.Mjj (h , ln on TO 7C 0 
T c ( TOHI J.o #K . JM ) on TO 7cn 
U=^JH 

TF (TSVW.F0.01 I 1=VJM + 1 
TO (MM (?) .FO.C ) 00 TO 6F0 
TF (MV/ (3) .FO.n) 00 TO f7n 
TO ( I J.GT . M JJ (*•? ) ) ro TO 7 T o 
TF (Tj.rT.Mjj(K'F) ) 00 TO 700 

TO (MMJ.F0.4) 00 TO 6 Q n 

TO (MMJ.FO .s , AMO. T J.GT.WJJ J-4 1 1 no to f 00 
GO to t'so 

TO ( TJ.CT.wjj ( f- ?n op TO 700 
IF (MMJ.FO.O) 00 TO 6 Q 0 


MAT37Sn 

m AT3760 

MAT3770 

MAT37A0 

MAT37O0 

MAT3*nn 
MAT3A10 
MAT3PP0 
MAT3 fi 30 
w AT3 p 40 
MATSflOO 
HAT3 p 60 
MAT3 p 7n 
MAT3PP0 
MAT3P°n 
MAT3900 
MAT3Q10 
MAT3QF0 
MAT3930 
MAT3940 
M AT30 p n 
HAT396 0 

M AT3 q 7 n 
M AT39P 0 
MAT39Qn 
MATAOOn 
MAT401 n 
m ata n ? n 
M AT403n 
MAT4C4C 
MAT405P 
M4T4 060 
MAT 4 0 7 n 
MAT4000 
M AT4 n o o 
MAT4 m n 
mat4 i i n 

MAT41P0 
MAT4 130 
MAT4140 
M A T4 1 5 0 
M A T- 16 0 
M A T 4 1 7 0 
M A T4 1 P 0 
HAT41P0 
MAT4P00 
MAT4?1 0 
MAT4??0 
M A T4 P 3 0 
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rr fN'Mj,F0.4.Avn.Tj.0T.Mjj ( iv 3n pr to Aon 

MAT4340 


no to 7^o 

MAT4?P0 

ftp p 

IF (MMJ.FO.?) on tp 

MAT4?*0 


T r f nnj j # fo # 3 a amp , x j a gt « M j j (N ! ? ) ) on to fqo 

MAT4P70 


on TO 700 

MAT4PR0 

ft<3 0 

K1 SM JW1 ( 1 ,MJP) * C JO^T-L 1-IOYM) *mw ( 1 ) -1 

MAT4?P0 


KMWsMW ( 1 ) 

HAT4300 


00 TO 7?0 

MAT4310 

7nn 

KlrMJWl (?,NJP) ♦ ( IPWI-L1-I<?YM)*NW (?)-l 

m AT43?0 


KNIVsMW { ? ) 

MAT4330 


GO TO 7?n 

MAT 4340 

71 0 

K 1 sVJWl (3,MJP) ♦ ( TPHI-tl-XCVM)*MV» (3)-l 

MAT4350 


KMWs N'VI ( 3 ) 

MAT43*0 

7?n 

on 740 KK=1 ,KM*I 

M A T43 7 0 


K1_=K 1 + KK 

MAT43P0 


J4=KL*?* JP ANFL 

MAT43Q0 


A 4 = 1 . 

MAT44nO 


no 700 l = 1 ♦ Kf-w 

MAT441 0 


LL=K 1 *L 

MAT44?0 


TO (l.FTP.KK) on TO 730 

MAT 4 43 0 


AA = A A* (XCP (T J) -YV(LL ) ) /( vv (KL) -TV (tL) ) 

MAT44A 0 

730 

COnttnijf 

MAT44S0 

740 

AW ( J A) rAVf ( JA ) - A flov/^M»v w IJ<>T r ^PttO. R 

MAT4460 

700 

ContT^mp 

MAT4470 


TF (KCOPF.FO.OI 00 TO 7Qo 

MAT44P0 


T F ( 7 JFT.OT.P. 01 ) on TO 7 Q 0 

MAT44QQ 


IF f OFJ.LF .0.000 1 ) 00 TO 7 C o 

MAT4000 


IF (MMJ.F0.1 ) 00 TO 7*0 

MAT4^ln 


IF CTJ.LF.MJJC^l ) ) on TO 

MAT4FP0 

7ft 0 

CONTT^'IIF 

MAT4030 


IF ( TP^I .FO.N JMi or TO 700 

MAT4S40 


T e ( T 3 Y M , N F # 0 * A*'P # TP HI *Fp # 1 } 00 TO 7on 

MAT 4 55 0 


op 7 P 0 J = 1 * JP A MFt_ 

MAT45R0 


jj=j*jpakfl 

M AT4 c 7o 


IF fTHSP.FO.?) nr t r 770 

mat4^o 0 


FV ( J) s-AW { JJ) 

MATAFOp 


'on TO 70(1 

M A T4 f> 0 0 

770 

q\/ ( J ) r.AW ( JJ) / (Trvc«V M tJ»VHli) 

M AT 4 0 1 0 


AW ( JJ) =n. 

M A T4 F ? 0 

7 P 0 

CPN’T TMHF 

MAT4030 


WPJTF (0?) (?V ( J) , J=1 , JP M'Fl ) 

M A T 4 R 4 0 

7Q p 

PON T T^M.iF 

M A T4 F S 0 


V M I IsVIJT 

MAT4040 


TF^PsTFM 

MAT4070 


dfTIj'Dm 

MAT4F PO 

r 


MAT4*°n 


FMP 

MAT4700 


S1JPPOUTINF SKIP ( T • JP Af;FL ) 

SKP 10 


nTVFMSlON PtJMMVfPOO) 

SKP PO 
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r> o o o 


in 

pn 


c 


1 o 


TF (T.FO.nj rr pn skp 

pri in J= 1 « T SKP 

°FAP (0?) (HijMW (K) .*=1 ' JP AMFL ) SKP 

COMTNUF SKP 

PFTUPM SKP 

FMP SK p 

nVFBLAV (MSPTFF.4,0) SOL 

pdppdam sclijtn sol 

TO SOI. VF THF JFT pM AMO J f T OFF FCllATT ONF SOL 

SOL 

*** AAWMfl MtJST p F PTMrKctPNFn TO WAVF AT LFAST (KUl)**2/4 FLF^FNTS* SOL 
WHFPF M !F THF c T 7F pF T»-iF ^ATPTY «## ' SOL 

nr^FMsiPN pamva n c mn) sol 

SOL 

nTVFMsinM Aw(^ni)« PAfSOnj SOL 

nt^F^STON PAMv/c f 30 O), PH jm (2 C 0 ) SOL 

rpuwoM /rnnr/ KprpF SOL 


Oommom /sphfvf/ P(P) # Y(in,4i)*Y(ln,&n . slo^ (15). *L (2.15). vtt f 41 ) f sol 


l*LL(4l) SOL 

ro VMOM /PFDM/ MALFCW *XCo (700 ) . VPP (POP) ,7 Cp (POO) * *LF (50 ) . YLF (SO) * XT SOL 
1F( C P) .PM <po) ,fH(Qcj ,xv(?nnj •Yvnonj •s K i( fl *°> •x^(200*2)«YN<?nn*5) .7S0L 
PM<POO,P) .WIOTI- (O j ,VCPM (?=:, ,cVFPP(Cfi) *HA|_FR.SJ(?1 . R ) . F y (05.2) .TX(QSSOL 

s.P) .srn^n.c, #C j nfo. s) *lc(?) sol 

Cnwvow /oapa^v ALDT, AL c C.ALDS.PnF,FOF f T m,TPF.NOpO,HETGHT.ATT SOL 

C 0 WMOM / A F P 0 / AMi # AP?,Pl,PP.CL(?0).rT(30)#cn(30)*fiAM(? f i00) SOL 

COWMOM /APO/ PDfl 00 ) ,C M no) . ppfak (O ) ,swd (P, IS) tOAL (30) , T SY W , VMM, VUSOL 
1 ,TFvo # FPP.CAMLFP,rAVLFT.rAWTFP # PA^TFT f xj.YJ.7j.PJf ALPfCPFF.TwTCTP SOL 
rpYMOM /CONST/ Kcj'Cw.f M ( Q ) ,Mc j . K.pj (R ) «LAST.mJw 1 ( 3 . S ) .M Jw ? ( 3 . ?) .JSOL 
lPAr'Fl. (?) # *MJ t NjP SOL 

COMMON /COST/ l„TP.TALfL D A*‘ 1 • NJW (S) . LP ANFL . T F>iTN • L D A N? . F X I T f PT T A L . TwSPL 
1 T ST • PF (F) ,MFF SOL 

FPI'T'/ALFNCF (XM.n,PHpJ(i)) SOL 

dFwtmp. m SOL 

ofutmo o? SOL 

IitcpsYCOM ( P4) SOL 

NpsTFMTN SOL 

7’=YrnM(?F) SOL 

tt^ = vrOM (p7j SOL 

T Or 1 SOL 

JlrLOA*FL*l SOL 

LD 1 =LT 0 TAL *1 sol 

aQ=p l SOL 

nr j=C°F SOL 

\i A = 3 SOL 

IF (NW(P).FO.O) MA = ] SOL 

TF (MW (P ) # MF , n , AMT .MW ( 3 ) ,F^ # 0 ) MA = P SOL 

OOKTTMliF SOL 

T 0=1 SOL 

MnsK'U(i) SOL 


30 
40 
SO 
60 
70 
PO. 
10 
20 
30 
40 
FO 
60 
70 
PO 
P 0 

ion 

no 

IPO 
130 
14 0 
l c 0 
160 
170 
IPO 
190 
200 
210 
220 
230 
P40 
2S0 
260 
270 
PRO 
?Q0 
300 

310 

320 

3?o 

340 

PRO 
3^0 
370 
300 
3 Q 0 
400 
41 0 
4P 0 
430 
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= ( 1 ) 

DFAr (01) 

ypryro ( 1 ) 
vo=yCd (1 ) 

PMP\/ = 0 . 

rr (Tiicn.K-r # o.A^r # TTM.e , o.n) ro to ?n 
CALL r^HVFL OfP*vP.yj, Yj.7J,Pj,»P,PHPV*PHy ,tfmp 
1FTPPT) 

COM TMl'F 

AW ( Jl) =AW ( Jl) ♦ YTT (JR) +PHPV/ ( ALPC*VU) 
nn po t = i « l. p a mfl 

IS8MMA ( J) = - A W ( 1 * 1 ) / A '•« ( 1 ) 

MJ=l OAMFL-1 

no M TJ=?*L D A>FL 

DPAT (ftl ) ( AV{*) • K" 1 .J! ) 

yp=yro ( I j) 

Y Q =vro { i j) 

rr { TiicP.Mr.n, A^n.TTM.Fn.ft) c-o to 4n 

TALL T^rvFL (XP.VP «Xj,Yj,7J,Rj,PP«P»-ip\/ t DHX »TFMp 
1 F T (Hi T ) 

CONTT^'IlF 

AW { Jl ) =AW ( Jl ) +XTT ( TP) +DHPV/ ( ALPC*V(M 
TK = T J 

CALL WSFON (K -J. IK, AW, gamma # CA) 

MJrK’J-1 

IF f TJ.PF.LPA^'l.A^ i ^•IJ.LT.LPA^■?) KPrMW(P) 

TF ( Tj.PF.LPA^p, ANC. TJ,LT.L D *NFU WsNW(3) 

T r (TJ.LT.^P) CP TO 50 
TP=TC.+ l 

TF (TJ.FO.LPAM .OD.TJ.FP J PAM?) 10 = 1 

rr»h-T TM|IF 

nn ?n T=l*LPALFi. 

r,flM(tr,T) =PA(‘w a ( T ) 

TF (ap«=(pi-p?) .iF.n.noi) pc to po 

TC = T n ♦ 1 

On r D p 

TF ( I r # pt # ? ) no TO on 

OP TO ] p 

OOVT TM|«tr 

\/M(’r sV'-M.f * AL°C 

! p P T - 1 

MjrL^MFL + A’CJ ( 1 ) 

TMK'=1 
JMK'=1 
t =L A FT 4. 1 

PFAP (01) ( AV (K) ,K=1 •LTOTAL) 

CALL FTPFA m ( Al.PW A , VMI !C • T . TPM T *1 p ^ l{r L • T^vd ,lp AN 
IFy TT.mj.PHTW) 


« VU«PHY* ISY^NGDOt* 


,VU*PHY,T?YM,NGPn^ 


1 *LPAn?, ISY^. kcnnr, 
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QO 

inn 

c 

c 

c 

r 

l in 

l?n 
1 *an 

140 

l c n 

160 

170 


aw (L P] ) =AL DW A 

nn on r = l - i.tptai 

OAmw& { T) =-AW n *11 /AM <11 

VfTr? 

KilrLTDTAL-l 

L T =L 49T ♦ ? 

TH=MW (N A) +MJW1 (NA.* JP) -1 
KJ=LT 

TF (LT.PT.LAS-n K J=L I - J° AN C L 
°fap (01) <av (*) ,K = 1 .LTCT&L) 

CALL STOFAM ( ALPM a .vmjiC.LT ,TPHT,L p A^FL .TFmo, L pam # LPAN^, TSYM 

1 .FyTT,i'j f pu|M) 

TF (KCCPF.po.O) CO TO 1?0 
T r (77. OF. 0. on rr to 170 

A on TT I pm A L FXTFCN.AL FL nw 0 P F L F 0 T 1 0 M Tc ALLPWFn TF THF JFT ANGLF 
ODFATFO tram TMF flap ANO|_F FFOalff of TH£ fffFCT OF FTMTF 
LTNO-FOOF ANOLFP.. fop thtm AIPFOIL0. THTP can ff FLIMTNATFD 
TmcfptTNO THP ct atpNF*‘T « T r (KCnpF. F0.1) 00 TO 03 
T F (LT.FF. M J^1 U ; A^ JP) .A^^.LT.LF.VJW2(NA.MJD) j 00 TO 110 

« 0 TH 170 

TF (l_T.NF.TH) fift TO 170 
TF ( (Orj-TTF) .1 T.o.) 00 TO i?o 

C7T=CAMTFP- (CAMtFc-CAMtFt) *yCP (LI) /HALFR 
APi = n^» (DFJ-TPF + C7T) 

TF <\/*nt.OT.O.PS) APA=APAa (1 .-VMJI) /o . \c 
TF (APA.LT .0.) flPArO. 

AL°HA = ALPt-‘ A+AP A 
TH=TW+NW (NA) 

OOMTTMIJF 

AW (L D] ) = ALPHA 

CALL VMFFON (NT .KT , AW,OAMMA ,CA ) 

TF (KJ.LT.MJ.od.K'J.FO.LAFT) 00 TO 170 
I on T =T pH I + 1 
MJaM J^MCJ ( TNN) 

FONT TNIIF 

m JT=mjj ( tnn)-1 

TF (^j.FP.Mjn Pn Ho 

on to ion 

JNN=TMN 

TMN=TNN +1 

TF (*<J.FC.^JJ( ) ) TOW T = 1 

TF (LI .FO.LTOT AI 1 fn TO ]A 0 
nn TO 170 
CONTT^IJF 

T°HT=1 

M J=L°Ah FL *NC J ( 1 ) 

JMN= 1 
T NMs 1 
fONTTMI’F 


SOL 930 
SOL 940 
SOL 950 
SOL 960 
SOL 970 
SOL 9P0 
SOL 990 
SOL1000 
SOLI 010 
SOLI o?o 
,KCOnFS0L103n 
SOLinAO 
SOL 1 OP 0 
SOLI 060 
IS SOL 1 0 7 o 
TP A I - SOLI 09 0 


9Y 


S0L1090 

SOLHOO 

SOL lllo 

soli i?n 

SOLI 130 
SOL1140 
SOL11S0 
SOL 1 1 6 n 
SOLI 1 TO 
SOLI IPO 
SOL 1190 
SOLI ?on 
SOL 1 ?1 0 
SOLI ?P0 
S0L1??0 
SOLI 7* o 
SOL 1 ?F o 
SOLI 760 
SOLIPTo 
SOL 1 ?p 0 
S0L1? Q 0 
SOLI 30 0 
SOL 1 3 1 o 

SOLI 7? 0 

SOL 1 3 3 0 

SOLI 34 0 

SOL 1 ? c 0 
SOLI 360 
SOLI 370 
SOLI 3P0 
SOLI 390 
SOL 140 0 
SOLI 41 o 
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*<!=*!♦ 1 
K] 

TP (LT .Fn.LTOTfii > on TO 1«C 
TP (LT.fO.tftST) 00 TO 190 
LT =L T + 1 
on to ?" n 
\on LT=L0A*' P L*1 
00 to ?nn 
1 Q 0 L T = 1 
?oo co^ttmiip 

T r (KT .LF.LTOtal ) r : o to mo 
T Arp*jPANTL 
JP AM 1 = JP Af>. P L> 1 
T A 1 = T A ♦ ] 

00 Pin l = i ♦I.TOTAL 
?m ^ayvo(D=G4> j vafT) 

on ppn T = TM*L total 

J= T - T A 

PPP OAwwa ( T ) s (OA^va ( T) ♦o&m ( \ . j) ) *A|.oC • 

V'PTTF ( ft ?) (OAm*-a ( I ) . T = l .(.total) 

TP ( IH90 AMT. IT M 4 FO,0) 00 TO ?70 

T Or 1 

MfisMg(l) 

VOrN V ( 1 ) 

PEwi^o 01 

DPAO (ni) (AVJ<I) .Tsl .Jl) 

AM ( Jl ) =A'J ( Jl ) ♦ y T T (TOO 
00 PPO Trl*LO £ ^ p L 

P7 0 AAMV A ( I ) r- Aw ( I ♦ 1 ) / AW ( 1 } 

MJ=LPANFL-1 

00 pen I j=? f t P A*:FL 

PP A 0 (01) ( AVg (*) .K = l , Jl ) 

AW(Jl)rAW(Jl)*yTT(Tr) 

!< = TJ 

CALL (* J. TK , AW, 0 A MM A , f£ ) 

*'J = f‘J-l 

TP ( T J. OF .LOAM . ANO. IJ.LT.I PAf P) (P) 

IP (TJ.OF.LPAf P.AfT.I J.LT J.PA^ PL ) MfisMwf 3) 
T c ( I J . LT • M o ) r-p to P40 
T Or T 0 ♦ 1 
*T,=vn + KO 

?A0 TP (TJ.PO.L°AK 1 .OP.TJ.ro. LPAM?) IOr] 
pen COf-TTMllF 

00 T = 1 < LP Af PL 

P*0 OAM (P. T ) =0 Amma ( T ) 

00 TO ?00 

P70 no pan T = 1 <LPAf'FL 
?PP OAM (P. I ) rOAM ( 1 , T ) 

P9 0 OOMTT^UF 


SOL14PO 
SOL1470 
SOL 144 0 
SOLI 45 0 
SOLI *60 
SOLI 47 0 
SOLI 4P 0 
SOL I 490 
SOL 1 SO 0 
SOLIS 1 0 
SOLI 5?0 
SOL 1 S3 n 
SOLI 040 
SOLlS^n 
SOL1S60 
SOL 1570 
SOL1SP0 
S0L15P 0 
SOL 1600 
SOLlfm 
SOLI 620 
SOL 1*3 0 
SOL 1 *40 

SOLlfcSn 
SOLl**n 
SOL 1670 
SOLI* SO 
SOL1*PO 
SOLI TOO 
SOL 1710 
SOL 1 7? 0 
SOLI 730 
S0L1T40 
SOLI 7S 0 
SOLI 7*0 
SOL 1 770 
SOLI 7 P o 
SOL l 7 9o 
SOLI p nn 
SOL 1 P 1 o 
SOLI p ?o 
SOL1P30 
SOLI °40 
SOL1°SO 
SOLI p *o 

SOL 1 p 7 n 
SOLI p °n 
SOLI P Q 0 
SOLI °P 0 
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mo 

31 n 

c 

c 


in 

?n 


r&M-fAHLCO ^^Ll^lo 

raMjrravLPT sol)P?o 

CHL T^pi’ft (LTr T AL.L D ANFL 9 oam\/p ,ca m 'Lpa* 1 ,V<J*xj*YJ,7J # pj t TFMP,0ALS0LlD3ft 

1*TSY m «L d AN7«CAwt) 

nn 300 I = l,LP is,r L 

T°= I ♦ T * 

TC=1 

km’vo ( t ) =r-AM\/p f in) +oam ( ir , t ) 
no 310 T= 1 ,LP^ M Fl 
C° ( y ) =<m»M/p ( t ) o? . * al d C 

cm =vrnK.(P?) 

DFTltPM 
FMp 

FUFPOi.iTT^P CTOF4W ( a I P m A , \/ v | ; « 7 , t c H T • L P AMFL .TFMP ,LPANl.L p *N2,TSY (J 't<FTp 
ICnnr .FX IT - MJ , PHT K*) 

TO 0 0 M P M T F TUF pjout’ha^ CIOF n F T*F FT M n!_TfiKjFCUS FOlUTTCN? 

OTf'FMC TON PMU- ( 1 ) 

COMMOM /FrMFVF/ r(?).Y(10*4l).Ytl0.4l) ,FL 0 OF (1 ? ) • X L c 7 9 1 5 ) ♦ XTT f 4 1 ) , STD 
1 XLL (41 1 

O'WOM /0FO M / u«| fcm,vod { POO J , VOD ( 300 ) ,7CP (?nn 1 f XLF (50 ) « YLF (SO ) • YTFTP 
IF (<mj .PFI (DO) *fM (CC) , y v (700) .YV ( 1 00 ) (P % ») ,XN (200*7) *YN (?f> 0 ,?) , 7 ?TD 

?W (70 0 •?) •WIOTH (C ) .YCCN (?F) t ci. Fpp {C ft) ,mai ^fr .CJ (?] , P) (PS • ? ) ,TX (P c STp 

3«?)#5Cn^n t C),cT(lfrO.F)#L<'(3) 

COMMON / A F p 0 / A*M « AM9.P1 ,P?,CL (?0) 'PT OO) 'CP (3fl) 'GAM (2, 100) 

POMMOM /CPNFT/ * C c «MCV • w 1 (ft) 'KCJ 4 KPJ(R) , (_ AST*Mjt.<l ( 3 ,F) ,Mjw?(3 f S) • JSTP IPO 
1 PAKFI_ ,MJJ (F) ,M ri (T) ,NMJ,NJ° 

COMMON /PAPAM/ At PT* AL p P • AI.PF.rnF •FOF.TM,TnF,KiGPn'HFTGHT, ATT 
P I =3 , 1 4 1 FQp^F 
tl |FP=vrpN ( P 4 ) 

7JFT=yCPN (P c ) 

O'l.'rCd) 

TF (TMFP.FO.?) \/M|( = 0. 

MlsK'MJ-1 
NPsNNJ-P 
MTrVMJ-T 

TF (NMJ.FO.l) *1=1 

MJt-= ) /P+ 1 

TF (TFVM.FO.O) = ^ <^J/? 

MP=N JH- 1 

JF (TFVM.FO.O) VPs^'JW 

A|_ D ^ArO. 

TF (T.OT.L°AN'Fl ) TO in 

on to pm 

TF (T.ot.lact) or TP no 
TF (Fy TT # t,F . 0. no 1 ) on TO po 
if (MMj.rq . 1 ) or m m 

IF (T,Lc,Mjj(i, i M.r l T/f/-j) Or TO 7?0 

rOMTTMItr 


S0L1P40 

50L 1 Q 5 0 

SOLIPPn 

SOLI Q 7 o 

SOL 1 P p 0 

S0L19P0 

FOLPonn 

SOL2010 

sol?o?o 

snL?nm 

S0L2 04 0- 

KFTp 

10 

STP 

70 

FTP 

3n 

STP 

40 

tSTD 

c n 

STP 

60 

TFTP 

70 

7?TD 

PO 

iF S Tp 

PO 

STP 

100 

FTP 

no 

JSTP 

170 

STD 

130 

FTP 

140 

STP 

ISO 

FTP 

no 

STP 

170 

STD 

IPO 

STP 

1 on 

STD 

?no 

FTP 

71 o 

STP 

7P0 

FTP 

230 

FTP 

24 0 

STP 


STP 

2*0 

STP 

770 

STP 

2P0 

FTP 

?o o 

FTP 

3oo 

FTP 

310 

STP 

3? o 

STr 

3?o 

STP 

340 

STP 

3 c n 
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ft = AL OT *Y n * TC»- T ) * ( 1 .-W*. !•) STP 

tf (^rcnr .ro # o ) &i_p^a = o # stp 

T f (Tw ,L r . r*. rni ) r-c Tn to c; T p 

T c ( TdhT. c p.njh) p n tp 30 q TO 

TF- (T^Y^^'F.O.Arr.TPwj^Fo.l) pp to po ST* 

TP (N'MJ.FC.I .^n.T.PTJ.CA* FI.) A|.PHA=M.DW^rpcft (1 FTP 

T c (WNJ.NF.1 } j AL Pi- A =A|. DHA + CrF* ( l.-V^H) FTP 

TO fOMTIMIlF S y p 

T F (TMCP.FO.P) pp TO 40 STP 

T r (40F(ni.op 1# | F.o.Dni) c C . T p c n STD 

40 rPfc'TTM"*’ STR 

r&LL MPPCPn ( T • Al.on »L p • TF^ T «L P A^-'l • L p fl*'7, Nftcr 1 HFI^HT « ATT) ftp 

At,CMA = ALCMA.*Al_Du <; T P 

*0 T r (YPPPF.PP.O) Pp TO ?30 STP 

T* (Fv J t,lF. n. 001 ) pp TO ao S T p 

TF (KMJ.FO . 1 ) OP TO AO STP 

T c (T.LF.Mjj(i).ftf.-n.i.Fr.Mj) ai d^a = alp^4/?» ftp 

AO TF ( jovy .FO.mJ*-) 00 TC FTP 

TF (T^v^.MF.r.^Mp.TDWT ,FA # 1 ) OP TO 7^0 STP 

tf (Tnpp.^F.o.Avr.7jFT.PT.r.oi) r-c to psn stp 

TF (COF # LT . 0 . OPO n F ,0 TO P 3 n STP 

TF (MMJ.FO,!) OP TO 70 STP 

TF (T.LF.MJJ<M>) FO TO STP 

70 T F ( T otJ T •LT.MJH) ti.sToht4.tcvk* STp 

TF ( TPMT .ftT.NJH) Tl.t;TOHI-^Jh*TCYV STP 

tf (MMj.FO.n MJKJT = (_D &K*F| . STP 

TF (MMJ.K‘F.1) STP 

MPsT-MjMl«. ( TOHT-1 ) **'rj (N*,'J) STP 

FMK-JrNf J (MNJ) STP 

0 T CT J=POF STP 

P|.Y rP T S T J*0 . c * c t /FNV J STP 

F7yr- ( 1 # -V*»n FTP 

T0= ( TL-I ) <* M C J ( K N’ J ) STP 

TF (MMJ,FO # T) TC=L pak 'FL^tp4.1 STD 

TF (MMJ.MF.1) TC=**JJ ( m 1) ♦TO 4 .I CTP 

00 TOO JJ=1 • WF STD 

T F (JJ.FO.MC) Op jr PC. CTP 

IF (T»ifo.F 0.7) ryTWsH y^nct (jj)*; # /r‘y|l STD 

TF (TMFR.MF.J) ryT(- = 0|_ Y^nc T fJJ) *TFVD^\/MM*\/V|| /T h STP 

r,n tp qo STP 

fl n tf ( t iicp , fo f ?] pyTH=ri_y*RCT ( JJ) .R/CM 1 ) Stp 

T f < Ii»**.r'F.?) ryTH=n.y*osT ( jJ)*TFMP*\/MM*VMU*n .F/TH FTP 

QO JKi=TR+JJ ST® 

J^7=J*1-1 STP 

poor=c7yopni J STP 

JK? = JK?*NP*Nr J (KMJ> STD 

A(_DMA = ALPm A + DRpnfl^p^Tv -pwi^ (JK3) ) STP 

1 00 CON.TTMUF STP 

on TP 770 STP 


3 A n 
?70 
3P0 

3*0 
400 
410 
4?0 
430 
440 
4* 0 

4 A 0 
470 

4 P 0 
4Q0 

*on 

MO 
*?n 
*3.0 
F A 0 
**0 

5 A 0 
F70 
*P0 
*P 0 
600 
610 

6 J?n 
630 
640 
6*0 
66 0 
670 
APO 
6*0 
700 
710 
770 
7^0 
740 
7*. 0 

76 0 

77 n 
7PO 
7Q 0 
POO 
Pin 
P70 
P 3 0 
P40 
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no 


no 


no 


140 


no 


no 


170 

ion 


no 


("om T M 'P 

TJ=T-JPAKFL 

T f (Kfcrr # Fn . n, on rn ?n ' 

TF fFxTT.LF.n.oi) FQ TO no 
tf ( k, MJ«Fo # i ) on to i?o 

TF ( iJnT.LOANFL I J.IF .MJJ ( n ) 00 TO ??0 

CO VT T MUF 

tf f Tns«.NF.n. amo.7JEt.pt. r.on oo to ?i o 

T r (MMJ.FQ.l) on TO Pin 

IF ( tj.ot.»'jj (Ml) ) 00 to no 
TF (TDHT.LF.NJM, 00 to ?1 0 
LI =m J u ‘ 

TF ( rqyM.FO.O) l IsrMJW+l 
TF (MW (?) « F 0 . 0 ) 00 TO 140 

TF (MW (?) .FO.O) TO no 
TF ( T J.OT.hjj (H?) ) r-o TO 170 
TF (TJ.GT.MJJ(M?5 > oo TO no 
TF (VMJ,F0.&) 00 TO no 

TF (MMJ.FO.F.AMP.T J.OT.mjj (M^J.4) ) 00 TO 100 

OO TO 7 ] 0 ■; 

TF ( TJ.0T # m j j (m?) ) on TO no J 

TF ( J * FC . ? ) oo to icn 

TF (WMJ.F0.4.4^ n .T J.CrT.Mjj (^3, , OC to 1*0 
00 TO ?1 0 

TF ( mm J . Fo . ? ) on to no 

TF (MMJ.FO.?.4NO.I J.ot.mjj <m?) ) no to no. 
oo to ?n 

ki=mjvi ( 1 ,mjp) ♦ ( TP^T-LI-tcym) «nm n ) -i 
*?=I.C ( 1 1 *TDMT-Lni CYM 
KM Vs MM ( 1 ) 
no TO no 

Kl=HJVl (?f MJP) * ( tdht-L1-I c Y*) *mv (?) -1 
v? = |_C(?) + TPWT-Ll-nY l * 

KMMsMM(?) 

oo to nn 

K 1 S M J M 1 ( 3*MJP) + ( TPWT-L 1 -tcvm, «mw (3 ) 

*?=LC(3) ♦IPHT-l 1-nvv 
XMWrMW (?) 
font t mi if 
iLP^M =n . 
ft? = n . 

no ?nn kk=i.kmv 

k'JrK 1 «.KK 

44 = 1 . 

no no L = 1 • kmv 
LL=K 1*L 

IF (L.FO.KK) 00 TO no 

A&sA a« (y CP (TJ) - yv (LL )l / (xv (KU -yv (LLU 

rriMTiwnp 


STD PS 0 
STP P60 
STP P7 0 
STP PflO 
STR PRO 
STP POO 
STR RIO 
STR D?0 
STR D?0 
STR P40 
STP PSn 
STP 9*0 
STP D70 
STP RPO 
STP PRO 
STP 1 on o 
STPinio 
STRl 0?0 
STR1030 
STP 1 040 
STP1 050 
STP 1 0*0 
STP 1070 
STP 1 op o 
STP1090 
STPUOO 
STRJ 110 
STRUpn 
STP1 130 
STR1140 
STP 1150 
STP! no 
STo 1 1 7 n 
PTPl IPO 

stpi no 

STP 1 ? 0 0 
STPI ? 1 0 
STP 1 ?? 0 
STPl?7n 
STP1?40 

STP 1 25 0 
STP 1 ?P 0 
STP1270 
STPI ? Q 0 
STP 1 ?R 0 
STPI 300 
STP 1 ? 1 o 
STPI 3? 0 
STP] 330 
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A(_P^A 1 =At D^A J+AAoPA' (l.KLJ 

STP1 340 


T c (4PC(Pl-P?) j c # o # ooi) nr TP poo 

STPlPSn 


A|_DW 4? = ALptJ/i^* A £*0 AV ( P ,KL ) 

STP 1 36 0 

POO 

OOrTT^MF 

STP1370 


TF (AFC(Q1.P?J # | F. 0*001) ALP^AP=ALPHA) 

STPJ3P0 


ALPMA=(A!_DMAp-TFWpoVM|!o\/M|)oALFHA))*ft.c; 

STP 3 3^0 


no TP. P3 o 

STP 1400 

Pin 

POMTIMIIF 

STP 1410 


PA( L FPFFO ( VM|*. r, ALPHA. L°^ FL .tFMP.L 0 **'! 9 |.pan?. PHIS . 

TP«I . TSYM,N0RSTP14?p 


1P.WFT0,HT) 

STP1430 


T r ( TllCC .FO.P) A| DhA = 0. 

STP 1 4 4 0 


tf (k’pnnF. Fp.ro nr to P 30 

STP 1 4 C 0 


tf (mr .( . n , or>o ] ) ar to 7-?r 

CJP j 4F 0 


TF (M*\J.F0.1) np T n ppn 

STD 1 47 p 

, 

TF ( T ( v) )) 00 TP P^O 

STP14P0 

7P0 

OWTM ( T J) =f^If 

STP 1 4D 0 

? 30 

POf-r t*M/F 

STP1SOO 


CFTItPM 

STP 1 p \ f| 

C 


STPiSpn 


f>t> 

STP 1 S3 0» 


CIIOprtjTTMF THCPCT ( [_ T^ T A D A A F| , p A^.I.PAM 

XJn YJ.7J.DJ, TTHD in 


1 •fiAl..TSYM # LPAN?,C*W|_FT) ™ P 

to fvalpatF twf fhof t^oust TMP 

PTK'PMCJCM n j , <s*l (1 > THp 

rnn'Mnp.' /schfmf/ c(?i.ni(».4i),vnn ( 4i} •<lopp; n ?) *xl <?• is> ♦ *TT(4n ,twp 
iylk^h * thp 

commom /npr M / v-ai ffv *y cp (?or ) *vrp (^no) ,7CP (?onj . xlf (^n) t YLP (*5o> , xtthp 

1 f (CO) , PST (PO ) *rw (Qp) .xv (?00) .YV ( 100) ,^*(fl,p) , XT (200,?) , YN (P00.P) .7THP 
?M( .WTOTH (P) . YCCM (P c ) ,P»«FFO( c O) .HAl.FO.CJ (21 *a> «F* (P5«?) ,TX( 0 OTHP 

?.?) *SC (160 •«?) .cx (1 AO .C) .LC (3) . THP 

rm'wnM / afpo / jn| , Avp , ,p?, rt (inj ,tt ( to >, rn no ) lOftM (? , l no ) THP 

roMHOM /COP ST/ P'CC 1 ( p ) cj.^GJf^) *L fiCT t w J^l (3*5) * M Jw? {?♦?) f JTHP 


loAf'FL* M JJ(F) • T.t* 

Comwom /pad am/ 

°Tc?.1Msq?*s 

L n = l 

TF (f.fffpr* .fc. 1) 

(V\m| ro-pAH 
C M-MU ( 1 ) 

T I lCDsYCP^t.( p4 ) 

T TMr YPP* 1 (P3) 
nn ?4n T = 1 *MCS 
FCOCsCOS (CWFFP ( T ) ) 
FTAMrTAN (SwFpP f I ) ) 

Ml^rT ( 1 ) 

T F (f.'VJ (?) .FO.O) CP 
T T = 1 ♦MP« 

TF (MW ( 1 ) # K. F . 0 ) CP TP 10 
PM(_ rFH ( t ) +CH ( T T ) 


( 7} ,V\J J JP 

&| DT, ALPC , AI.CC . PP.F.CPF. TM,TfMr ,MCPC# HEIGHT t ATT 


I 0 = ? 


TP PO 


THP 

THP 

THP 

THp 

THP 

■thd 

THP 

THP 

THP 

THp 

THP 

THP 

THR 

THP 

THD 

THP 

THR 


?n 
30 
40 
SO 
60 
70 
Rn 
00 
100 
no 
i?o 
130 
1 4n 
ICO 
1 40 
170 
] o n 
1 Q o 
poo 

?m 

PPO 
p?n 
?4 0 

pen 

P60 

?70 

PPO 

P Q n 
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10 


?0 

on 


40 


*o 


<-n 

70 


on 


r~n to on f; • 

THP 

300 

T T T = T T 

THP 

310 

om[ =ru (T)*r u (TT)+rH(!II) ; 

THP 

320 

an jo 7n 

THp 

330 

rM L =rM(T) 

THP 

340 

comtmi!f r :\ r-- : - \ 

THP 

350 

cot=SOQT (C« { T ) /C*[ ) 

THP 

360 

*P=P I 

THO 

370 

T 0 = 1 

THP 

3P0 

-4 

N| 

II 

THP 

3Q0 

MMsfl 

THP 

400 

T^'s 1 

THP 

41 0 

MM-MW ( 1 ) 

THP 

4? 0 

KDrl ♦ ( T- 1 > *My ( n 

THP. 

430 


THP 

440 

00 = 0. 

THR 

4*0 

• 

c 

II 

*? 

THP 

460 

no mo = ]\ l c 4*' F L 

THP 

470 

jrl'V-MV 

THP 

4*0 

rM=K'|._ 

THP 

400 

rr (MM.pF.L p *wi TwLP^NPI.. ) 50 to 40 

THR 

50 o 

on to * o 'V- -j 

THP 

51* 

ML=^v ( P) 

THP 

*20 

tr ( MM , (5F . t P AN p . r> . M.: # l. T-'i t p AN ft ) f'L=MW(3j 

THP 

530 

tr (MM.OT.l.PfiNi .afP.rN.LP.LPAK?) IS*=? 

THP 

540 

TP (\'M.(?T.LPA^?.flN'r.NT .LP # tP^N!fU T cW =o 

THP 

550 

OOt'T JM(|F v-i 

THP 

560 

y 1 =XM (f*M « 1 ) .VL F ( T ) •••*{ 

THR 

570 

yPsyM(MM,?)-xLF(D V 1 

THP 

5*0 

XI ?SXM(NN,?) -VMMV. 1 ) 

THP 

*90 

V 1 ? = YM (NM« ?) - Y* : ( M- } • 1 ) 

THP 

600 

"M ? = o . 

THO 

6 1 0 

no i no k = i , p 

THP 

6?0 

T r (K'.po.n oo tp ao 

THO 

630 

Ml=l 

THP 

640 

00 TP 70 

THP 

650 

Mis? 

THP 

660 

CnrvT T>!i:f 

THO 

670 

vC = v L r ( T ) * (-1 .1 1 

THp 

6*0 

vi=vM<^ r * 1 1 -YC 

THR 

600 

v ?= vv ( , p j -vr 

THP 

700 

y YK = Y 1 *Y 1 ?-Y 1 * y 1 7 

THP 

710 

no ion *k'=i.|_o 

THP 

7?n 

IP (KK'.Fo.n 0^ tp po 

THP 

7?p 

r ’ r =-l. 

THP 

740 

7r=-p.^(7C D (^Pi+HFTr;»-T) ♦ tc.p (K°j 

THP 

750 

FPON' = l • .V.; v; ; 

THP 

760 

00 TO on ji\ ' 

THP 

77 0 

oc- 1 i«. . ' 

THP 

7*0 
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7r=7ro{* c n 

rrnM=n. 

) -7C 

7?=7K'(*M.?)-7 r 

X7Js*i*71?-71*y1 P 
nrrv = -7i»Yip* (-fiTT) *FroN' 
y7T=yi*71?-71*yi? 
AL°1=XYX*XYK*X7J*X7J+ p F*y7T»y7 T 

D1=CnOT(Xl*Xl4.DOOY]ftYl+PC*71-»7l) 
D?=<:nPT(y?«i(? + PP»Y?ttY?* 0 G»7?o7?) 

I HJf=> 1 = ( x ?*x 1 ? + PBov?«Yl ?+pp*??* 7 ^ p 
1*1 

ft i = d#-yi/°n/(Yi*Yi *7i *7 n 

o?= n ,-v;/p? ) / (V7 »y7 + 7p*7? > 

FI S|!|IR 1 * (lirriM* X VY ) *(=F/H ° 1 

F?=(-Y?»P?4.Y1*P1 ) ortF 


THP 7<?o 
THP POO 
THP P10 
THP P?0 
THP P30 
THP P 40 
THP P50 
THP P60 
THP P7n 

' thp PPn 

. < Ylttxi? + PP*Yl*Y12* OR *71*n?) /THP PPn 

THP pop 

thp Pin 

THP 0?n 
THP P30 
THP 9*0 


Pr = PC* (FI +r?) -*cw ( J, TPM) (?•*>»)*(> ( T7) /FM 
a= A* (F| ♦F?) «CM ( J, TFN) ( TC ^ K ) STM ( T7 ) /FN 

TF ,nc,n! , fo # i.p amcl ) tp ii n 

T7=I7+1 

MVsK- M 
MM = KM*N|_ 

C P N’T T M( »F 

pamlf = CA^LFF - (rfiM(.FF-r AVI.FT1 *Yl_F(T)/HAl_Fn 
4 = A/P.fYTT (I)-CAFLF 

XPsy|F(T) 

YP=YLF(1) 

PHPv=n . 

Tf (THSP.MF.o.A^p.m.Fn.n) or to i?n 


thp PFn 

THP 9^0 
THP P70 
THR PPO 
THP PPO 
THPinno 
THPimn 
THP10PO 
THP 1 03 n 
THR 1 04 n 

thpi n*o 
THP1060 
THPI 07 n 


OALL T^CVFU <yo,YP.Xj,Yj*7j,Pj,Pl .PMRV,DHx # T.V^lNPHY,ISYM,NGRn»HFTTHPl PPp 
1 OMT ) THR 1 0° 0 

rnvTT^H r THPiinn 

4=A+PH0V/ ( ALPfPWHl!) THPIUO 

A = A QP T THPI IP 0 

TKor ?r &/ tCM«$CPT (PT£"*rT AM*FF ) ) THP 113 0 

YTC { f) = (PT/? < )*crPT(l # -A“l*AKM*FCPc*FOriF)*THPTl*THPTl/FrOS THPI lip 

pr=pr/p . * xtt ( n -r THPllFp 

or = Df*CPT THPI 1 ^ P 

Twc-pp/ ( pMocrcT (FT !M«FTflN: + pc ) ) THP1170 

x («, r j s (FI/?. ) *ccct n . - ami ^rrrc^rrnc: )*thq»tho/fcos thou fl o 

MUrn.'i^ (1) THPI 1 Q p 

TMP=1 THPI ?np 

rcK-i THP 1 ? 1 P 

LlsjPAVEL+i THD 1 7? n 

RKsl. THP1??0 

T7= 1 THP1?4p 

MMsn THPl?Cp 

T T=MW ( 1 ) THP 1 p 

4 = 0. THR177P 
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rAfTOD-l, 


THP 1 PPO 


AMsA * 1 1 


THP 1 ?P 0 


nn = p | 


TMP1300 


cor-v = Ai.or 


THP1310 


no poo Mr = i , l act 


THP13P0 


T r (MH.(?T.l.OftKF|_ ) MArr'K-LPArFL+JPAMPL 

THD1330 


T P* (MN .IF .L p ak ri ) vt = * l+pojcakfl 


THP1340 


FMrTI 


THP13C0 


TP <mm.gt.ld AM . Arn.M # 1_r.i.PAN?l 

TCVrP 

THP1360 


TP (mm.gt.LDAm?. 4Mn.vM.L c '.l panpi. ) 

TCN:=*} 

. THP1370 


TP (MM.PF # L DA M . amP.vn.Lt.L c Amfi 1 

on to no 

THP13A0 


on TO ]40 


THPl 300 

no 

T T =Mt ( P ) 


THP 1 400 


TP (MV.OP.LPAK ?. Avn. vm.lt.lpavfl ) 

TTsK'M ( 7) 

THP J 4 1 0 

140 

rorTTMpr 


TWP14?0 


TP fMM.r-P.LPAKFl .AVr.vv.LT.VJJ (TVP) ) T T=vc J ( TNO ) 

THP 1470 


J = V V - W M 


THPl 440 


C>-»ocn=rM r t 7 ) 


THP] 4P 0 


TP fvv.PO.Ll ) or to Ipo 


THPl 4f 0 


OP TO 140 


THP 1 470 


T P K 3 T c v 1 


THPl 4!?p 


Ll=vjj ( T v 0 ) +1 


THP] 4Q 0 

160 

ML= M JJ ( Tvr ) -1 


THp 1500 


TP (MM.PO.VU TTTaIKT .^1 


THO1510 


TP (VM.OT.LPAVPL) PACTOP=0.p 


THP ] P? 0 


X1=YM(VM,1 J-XLPf T) 


THP 1530 


X*=XN(MM*2)-XLF(I) 


THP1P40 


X 1 ?3YM (MV , ?) -XV (VM , 1 1 


THP 1 pp 0 


VI 7sYV fVM, PI -YK (MV 4 1 ) 


THP] Pft 0 


71 ? = 7 W (VK 4 P) , 1 ) 


THPl 57 0 


no pin k=i , P 


THP]PP0 


TP (K'.EQ.l) 00 TO 170 


Thpi cop 


Ml = 1 


THP 1600 


Of) TO 1 ° 0 


THPl M 0 

170 

Ml 3? 


THP 1 4? 0 

1 o n 

0 0 V T T Vt IP 


THP] *30 


vp=vlp (I)M-M **n 


THP] 440 


V 1 s V m ( K V . 1 } -Y 0 


THPl 4F0 


YPsYM (MV .? ) - YC 


THP] 440 


XVKr Y 1 *v 1 p-Y 1 * x 1 P 


THP ]470 


on pin **3i ,lo 


THR 1 4 P 0 


TP (kk.po.I) no TO 1^0 


THPl 4Q0 


OP=-l . 


THPl 700 


70 = -?.* < 7CP <*<0) +HrTOHT) +7C P (*P 1 


THP] 710 


P C 0 T ' = 1 • 


THP17P0 


GO TO POO 


THP] 730 


0P = 1 # 


THP 1740 


7f=70P (KD) 


THPl 7 C 0 


c COV=0 . 


THP 1740 
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71 =7*i { \ i -7 r 
7? = 7M f *■**•?) -7C 

V7J=X1^7l7-71*yip 
HCC M =-7l *v 1 ?* ( -ATT) *cton 
Y 7 T sVI *7 1 7-71 # Y 1 ? 

4LP C5 T M = XYK*XVK4.y7J*X7vl*P c »Y7T«-Y7l 
DYY71=crpT(ylnyi +PP*Y]*Y1*P Q *71*71 ) 
OXY7P = SP p Y(X?*XP+PP«‘Y7ov7^P = *7P«‘7?) 


THP 1 77 0 
THP17Pn 
THP1 7R0 
THR 1 P 0 0 
THPiPjo 

THP) P?n 
THP 1*30 
THPiPAn 


til i5(y?*Yl?*np»Y?*Yl? + PPff 7 ?*7 1 ? ) /nyY7?-(xl-»Yl? + PP*Yt« > Yl? + pP»7 1*71?) THP) P^O 
1 /°X Y 7 1 THPJPfn 

G") = f 1 ♦-*] /OXY71 ) / (Y1*Y1 +71 *71) THP | P7n 

r ' M 7= ( 1 ,-r?/PXY7?) / (Y?*Y?*7?*7?) THP1PPO 

ri =1I|I« (lirov^ YYK ) *pF/ AL°C Tv 7Hp|aQ0 

e-?= f PMfrY 1 -rt *f.r TMPlOnn 

a = A+ fFi *f?) f j. tfm *cwo p r*OAM>'A (^'ai/lp.^PNipPACTO 0 ) THPipi n 

T r r-o rr ??o THR|Q?0 

T 7 = T 7 + 1 THP 1 Q *3 0 

= * . JHP 194 0 

MMsVM* I T THPlQcp 

rn MTM»IF THPlQfn 

rnKTTMitr THP\Q7n 

A = A *FO T T H R 1 P P. 0 

THPT?=A/ (O'^SrPT (rTAM*FTftK!*PP) ) THRlPOO 

twpt= (Thpti 4 thct?) «cc*'\j THpjono 

GAL ( n =?.*THPT/ f cPT*roN‘\/ ) THPJO 1 n 

CT ( t ) = (pi/?. ) *c^pt ( i ,-Aw#Ar*Frnc*prn<?) »thpt*thpt/fccs THp?o?o 

rOKTTMlF THP?n 30 

o^TUPM THP?04p 

FM n THP? ns 0 

$U°RniJTINF MCRFPP ( T , &LPH.LFA* FL * I pw ! • L D AN 1 • L p AM ?• NC=R0 *H£ IGHT • ATT ) MRP In 
TO 00 vpijtF THF TNOt'CFO M 0 c M A L ''Fl.O 0 ITtP$ HjF TC w I N 6 ALONF NRO ?0 

WPPT TOFF MPO m 

cn»'w n*: /cowfwp/ rc?) «y (ir.,4D 4 v(io,4i) ,sL0pf( 1 c ) tyL(2»lS) *yTT(4i) v NRn 4n 
1 y l. L ( a 1 ) M p o Fn 

0 omvom /ornw/ hal.fsh , y on {?nn i . yop ( Ron ), 70P (7no ) * *LF (SO ). YLF (*?n ). XTMRn *n 
IF ( c 0 ) tP^T (?nj . oh (OP) ,y\/ (?00) ,Y'M ICO) ,FM(P,P) (20 0*2) *YN (?00.2) * 7MR0 Tn 
Rm (?r n , ?) •Mimwi ( c > . YOn* ( ?c j .cwppp (S n ) , H AtFR .? J ( 2 1 * 6 ) * Fv ( Q? # ? ) , ty («N»0 Pn 
?#R) •SC (IGn.Fi ,ct (i ao.c) ,, r { ?) NRO on 

/afoo/ • A»-o, ci ,o?,ol (?n) ,ct ( 30) #rn ( ?n) ♦GA^(?, i no) npo inn 

0OVMON /CONFT/ *TC ,*;OS ,M) (P) CJ,KCJ (*) ,LAFT ,MJV 1 (3*F) ,MJW? (3«?) ♦ JM°0 tlO 
1 D A M F |_ , M J J ( P ) • Md { 3 ) « *• ** J • N J P NRO 1?0 

MJH= (MPJ-1 ) /R NRD 130 

LG=1 MRO 140 

TIJCPsVCOM { R4) MPO ISO 

IF (MOpn.FO.l) L G=R MPO 1*0 

T 7 = 1 MPO 1 70 

MM-0 NRO IPO 

MMsk'u ( 1 ) NRD 1 Q 0 

T F N= 1 , NRD ?00 
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MI.rN'U ( ] ) 

NPO 

710 

*1=0. 

NPO 

??0 


NPO 

P30 

nn Pft j= i . L° PL 

' npo 

?40 

JJ=J-mm 

NRO 

? c o 

PMsML 

NRO 

?60 

TP < J.OT .L 0 ** 1 1 .AKP.J.LF.L°*N?) T^' = ? 

NPO 

?7 0 

TP ( J . OT .L°AN?.ANP.J.LF«L D ANFL1 1^=3 

NPO 

?P0 

TP < J.CP.LPAK] .AMr.J.LT.LDANEl ) C -C TO 10 

NRO 

?P 0 

^0 TO ?0 

NPO 

3 nn 

Ml.sNM (?) 

NPO 

31 0 

TP (J.OF.LP^P./rT.J.LT.tP^Pl ) M=^W(T) 

NPO 

3P0 

rr^TTMijF 

NPO 

330 

vi=yw(J«l) -*CF (T) 

NPO 

340 

X?=XM(J«?) -XCP f T ) 

NRO 

3^0 

*1?=XM(J.?)-XN (J.l ) 

NPO 

360 

Y1?=YM(J,?)-YN (J.l) 

NPO 

370 

7i?=n. 

NPO 

3P0 

no 70 fs],? 

NPn 

3P0 

TP (K.P 0 . 1 ) rr Tn 3n 

NPO 

400 

M=1 

NPO 

410 

00 TO 40 

NRO 

47 0 

Ms? 

NPO 

430 

continue 

NPO 

440 

yo= (- i . > ( n 

NPO 

4*0 

Vl=Y M f Jt 1 ) -YC 

NPO 

460 

Y?=YM( J*?) -YC 

NPO 

470 

yvK=yi#Yl?-Yl«Y]? 

NPO 

4P0 

no 7n k-k = i ,lo 

NRO 

400 

TC (KK.Fn.l) on TO c o 

NPO 

c no 

OP = -l . 

NRO 

Fin 

7r=-p.»(7rD(| )+ Mri^hT) * 700 ( 7 ) 

NPO 

FPO 

r 0PN=i , 

NPO 

F3 0 

00 TO 60 

NPO 

= 40 

r ’P=1. 

NPO 

cco 

70 - 70 P ( T ) 

NPO 

F60 

Frnr=n . 

NPn 

S70 

71-7 V (J*1 ) -70 

NPO 

cp n 

7?s7W(J, 7 ) -70 

NPn 

pen 

Y7J=Y ) ft 7 IP-7 1 «Y 1 p 

NRO 

600 

I I0OM-.7 l *y 1 Pft ( -ATT ) ft roof* 

MQO 

6 1 n 

Y7TrY] *7 IP-7 1 *V) ? 

NRO 

6?n 

ALCl=XYKftXYK*y7Jfty7J*RlftY7T^Y7T 

NPO 

670 

01 07 -COPT (XI *xi *0 1 *Y1*Y1 ♦.01*71*7] ) 

NPO 

640 

opp] = <;r)PT (XPftXP + P] *Y?ftYP + c 1^72*7?) 

NOP 

6F0 

MHP]s(y2*Xl?*oi*Y?*YlP*Pl*7P*71 P ) /opK]-(X] *Xl ?*P1*Y1*Y1P*®1*71*71 ?NPO 

660 

1 ) /P 1 ° 1 

NPO 

670 

Gl = < l.-Yl/ c l c l ) / (vl*Y] *71*71 j 

npo 

6 P 0 

o?= ( 1 ,-y?/o?Di ) / rvpftYP*77ft7^) 

NPO 

6P0 
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r> n 


7ft 


on 


Al_P7 = yYK*xv**Y7J*Y7j + P?*v7ToY7T NPn 

R]c; = cnoT(VHyi*nj)nv]*vi*o?fl7i«7] ) Npp 

D?P?=cr,PT()f?*y? + F?«Y?ttV?+R?«7?47?) mpq 

HtlP?= (X?ftV l?*o?»v?»Yl ?+n?* 7 ?* 71 ?) Yl*Yl? + P?*Yl*Yi;? + P?*71*712NPn 

D/PIP? NRD 

K3=<1 .-XI /PIP?) / (VI* VI *7 W1 ) MPO 

P4=(1 ,-p/D?P7)/ ( y?<tY?*7?<»7?) MPO 

Fl?sMl! 0 l*y7J/&t.°l NPD 

FI ?:rl|HPl»y Y*/*l °1 MPO 

G1 !3r7?*f:?_71 #r. 1 MPO 

MPO 

F?75|||!a ? ^y7J/ft| c ? MRn 

F?? = imip?*y VK/At np N p n 

n??r 77^^4-71 oF? MPO 

ft9?a-Y?«r.**Y 1*G3 NRO 

r]=.n 3 *y (4. tp^t )* (^1 # ) ***« + fi?«y (?,TP W T) NRO 

c ?=n^v (4. TP^T )*(-!.) **fc**^|?*Y(?,ToHT)*PE MPO 

c*J-.p?7o Y ( 4, TOJJT) * (-1 , ) (7 , tom t ^o^F MRP 

F4=F?3*v (4 . TC^I ) # (-1 # ) **V + F??*Y ( ?♦ TOMT ) <>(;£ NRO 

A] 3&1-* (FI +F?) «rp ( T7) ( JJ . T?N ) ( 1 , J) /F*< MPO 

= (F-J + F4) (T 7) ( JJ, TCK J j, /fm NPD 

TP (J.tT # M') rp to on NPn 

T 7sr X 7* 1 NRn 

MM -km *JO(ft 


MM-MU+KL MPH 

rOMTTNHF . MPO 

TP fT|tCO # F0.?) HP*-=M/°. NRO 

TF (TIIPO.NF.?) AtPHr ( A1-A7) /P. NPH 

PPTl'PM NRO 

fm 0 NPD 

FMPDOt.ITTNF S Drcr n ( vvn. I , A|_p*-A,I.pA* Pt«TEM P ,LpflKii ,l_PAN2,FWTS f JPHI • TSSPO 
1 YM,v/;on,HPJOHT) SPR 

rn roMPUTF thf Tf.mtcFD T tt a l vflpC j j T Pl : F TO w TNG algnf S°n 
VflciTCFS c;P0 

riTMFM^TCM Ft] (100) 5P0 

CAYMQM /FCHFMF/ f ( 7) ,x ( 1 o,M) 9 V ( 10 .41 ) •ci.OPF ( 1 F) .XL (7, 15 ) * XTT (41 ) , S p 0 

lYLlfAl) SPD 

rpMupM /crew mm fcv; # yco (?r n ) , vfo (?nn) ,7CP (?nn j , xlF (So ) • YLF (Sn ) *yTFPn 

l c (P 0 ).F < =T{?n),r^(cF ) , v '/ (700) *ym ( ior>i .cm ( p, a) , y^ < son , ?) ,yk (pno.S) ,7SPn 

7v (70 0.?) ,^T n TW (F) , YCC^ <7F) ,CWFCD (SO) . F fl LF® . c j ( ? 1 , « ) . Fy ( qc f ? ) , T y (QFFPn 
3«7) .FC(l^n.C) . ct ( 1 f ft * c ) 1 1 r (?) SPO 

row MOM /6For,/ A*M . am?, cm ,n?,r . (30) «TT ( ?ft ) «m (30 «GAM (? *100) SPP 

fommom /rnr'FT/ 1 (P) .h sj ,kcj (F ) ,i_aft ,w jv, i ( 3 , 5) «M jw? (3.^) * j^po 

]DANFL« M JJ f p ) • 'w (?) .mmJ.Njo . SPP 

MlsMHJ-1 SPD 

MRrNNJ-? S p D 

*'?sNMJ-3 SPD 

7J P ’T = YCPN (7S) SPD 

TTrT-jPAMFL SPP 


700 
7)0 
770 
730 
740 
7S0 
7f ft 
77ft 
7P ft 
7P ft 
ftftft 
PI ft 

p?o 
P3 ft 
040 
P*0 
Pf ft 
070 
PRO 
PPft 
Rp ft 
Olft 
Q?0 
Q30 
R4 ft 
R c n 
Rf.ft 
Q7ft 
Rpo 

QQp 

lft 
?n 
3ft 
40 
00 
f n 

70 

po 
o n 

1 1 0 
170 
17ft 
1 40 

ISO 
If ft 
17ft 
IPO 
1QP 
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OR = P \ 

TC=t 

1 

Tr ( mspo . rn* 1 ) i _r=p 

1 o CO^ti^he 

T7 = l 
MM-p 

MMrMW ( \ ) 

p = n. 

no Oft J-l ,LPA»:cl 

FMs> : L 

T r ( J.Pt.|,p/u*i ,AKr # j # L p .i ?) T«N = ? 
rr ( J.DT.L»A K ?.^ J.l .MotvFL > i«m = 3 
TP ( J.^F.LPA^ 1 .AN".J.LT.».°^Fl ) C-C to po 
oo jo 70 
?0 (?) 

TP ( J.PF.LOANP. AfT.J.LT.I.cANFU K sMH(i) 

in fONTTMiir 

*\=Y*'( J, l ) -vro (TT) 

Y?=YM(j.?)-yrp(in 

yi-=x^(J*?)-yk (u.T 1 

7 12=0. 
no pn k=i • P 
T r (K.po, i ) on to 4n 
w *t 

PO TO C 0 
40 Ms? 

Cft ^OK'TTMIIF 

vr= (-i 4 )**M*vro(Tt) 

V 1 svw < J, 1 ) -VP 
YPrY *' { J . ?) -Vf 
yvK=yi p 

op fl ft KKsl ,t 

T c ( ** . rn . 11 oo tp cr 

«p=-i . 

7 P=-?. * ( 7 CP ( T T ) «.i-»p TP^-T) * 7 rc ( t j j 
cTPV=l . 
ftO TP 70 
60 0 C = 1 . 

7P=7PO(!T) 
r rpM=o, 

70 71=7^(J*1 )-7C 

7? = 7M < J* ?) -7C 
V7J=-71**1 ? 

V7T=-71 *v] p 


spo poo 

PPO Pin 
spo ??n 

SPO ? 3 o 
SPD 240 
SPD 250 
SPD PfO 
SPO 270 
SPD 2*0 
SPO ?P 0 
SPO 200 
SPO 310 
SPn 3 Po 
SPO 330 
SPD 34 o 
SPn 250 
SPD 360 
SPP 370 
SPD 3*0 
SPD 3 P 0 
SPD 400 
SPD 410 
SPO 4? 0 
SPD 430 
SPD 440 
SPO 4 S 0 
SPD 46 p 
SPD 470 
SPD 4*0 
SPD 4 Q 0 
SPD Son 
SPO sir 
SPD e ?o 

SOp Cftft 

SPD s 4 0 
SPn s*=o 
SPD c *0 
SPD S 7 n 
SPD SPO 
Sop C R 0 
Son a 00 
spn c]o 
S Dn 6 ?o 
cpo ^30 
SPD *40 
son * so 
$pn 66 o 
SPD 67 ft 

spo f Pn 


i 
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on 


1 no 


no 


AL p 1 =>' VM '* y YK + X7J*y7J + PR'»VTT»y7T 

SPD 

fOO 

oi pi sCOPT (VI »x 1 *Yl +P=«71 *7 1) 

s°n 

700 

0?oi=:CroTfY?*y7 + Pp«-Y?*Y?4.co*7;>tt7~) 

SPD 

710 

MMP1 = ( Y?»xi?«>oo*Y?*v] ?+oo#7?*7i?) /o?Pl- f xl oxi P+PR*Y1*Y12*PB*71 *71?SPD 

7P0 

1 ) / D 1 0 1 

SPD 

730 

c*] =l«l l c t -aY? I / ALP ! 

spo 

740 

«;UM = r]orH ( 17) »c*« ( JJ. I CM) *PA^' ( TC . J) /FN 

spn 

7S0 

TP (K.FO.l.ANP.k'K.ro. i j cm (jj=F) «fM{ T7) *cm ( J J « T SN ) /FN SPD 

7*0 

o = P4.pij m 

SPD 

770 

TP (J.L T .^ M ) to cn 

5»D 

7P0 

T7=T7*l 

spn 

700 

MM-^M 

SPD 

POO 

MUsMM+ML 

Sop 

PI n 

ro*’TTMU p 

spo 

PPO 

MJWr {K’CJ* 1 ) /?+ 1 

SPD 

P 30 

TP ( T^YM.PP. 0) KJMsSSJ /? 

SPD 

P40 

TP (inMT.FP^ Jh) pp TO ifo 

spd 

PSO 

TP ( TS VM .MP.O. ai^ D. T C ^'T .pp. 1 ) OP TP ) *0 

CPp 

P60 

TP f *’ M J *PP*T) op TP 1*0 

spo 

P70 

TF fTT.r-T.Mjj(M )] RO TO 

SPO 

PPO 

TP (lo^I.GT.Kj^ # fi^r.7JPT # i P.0.01) nn tp ipo 

SPD 

PQO 

TP ( Towt.OT/JW) l l = MJM 

SPO 

on o 

TP (Tcym. Pn.P. amt. Ipwt.pt. vjh) U*njh*i 

spd 

oi o 

TP (Tomt.LP^ JHi |.i = 1 

SPD 

°?o 

M7=l 

SPD 

030 

TP (NH(7) .*^.0.^0.* 'J(3> .rr*0) * 7=0 * ■ 

SPD 

040 

TP r "* 1 (?) .NiP.O) *7 = 3 

SPD 

050 

TP <*NJ.LF.3.Ak".*w<?) .MF. fl) IP=K? 

SPD 

Of 0 

TP r'*J.LF. 3. A*r. *••.<?) .FP.O) Io-ki 

S°D 

070 

TP (N'VJ.PP.4 # Ah-P.M. (H/T.O) TP = F7 

SPD 

PPO 

TP (VMJ.FO.A.ATP.N'M?) .PP.O) T*^? 

SPD 

PQO 

no i=o VP=1 ,N7 

CPDl non 

K1 =Mjwl (S'p .NJP ) ♦ ( TFHT-L 1 -TCY»M *MW (MO ) _) 

SPn] 01 n 

*?=LOfVP) 4.TPMT-L1 -TPV^ 

SPD1 0?0 

K**W-MW (WP) 

SPD 1 o 7 o 

V 1 =K 1 -KN'W 

SPD) 040 

k"? = k 7- 1 

SPH] r=o 

MD r 3 

SPD I Of 0 

TP (K'l.OP.O) rn TP ino 

$PP1 070 

K ) = K 1 ♦ K* W 

s p n i op o 

KP=KP 4 1 

spdi n°o 

md-; 

ppdi ion 

Pp ] 4 0 *P=1.MP 

S D D i lin 

CtlMsf) • 

SPD1 l?o 

nn no kk=i,kmj 

SPDI 130 

KL - v 1 *KK 

PP D 1 1*0 

sn^=SU M *SU (^L ) 

SPP11P0 

PALI T k, TPO (FFC.KrW.H ,KP. TT ,Pe, TP) 

SPOllfO 

cdfm=o , 

SPD 1170 
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1 / 


1?0 

no 


1 40 

no 

no 


no 

no 

no 


PO 130 KK= 1 ,KK«< 

spnmo 

k*L =K 1 ♦k'k 

spdi no 

6* = 1 . 

spnnoo 

n o no L = 1 

spnmo 

LL=H*L 

SP01220 

n (L.^r.KK) nn m no 

SPOl 23 o 

AAsA A« (yfP ( TT) - vv riu ) / (YV («L) -XV (l_l ) ) 

SPDl ?4 0 

CO^'T TVUE 

SPni2sn 

rop^'rOOPN^Aiofia^ ( t c . *L ) 

spnnfio 

o = P-r.PPN*SM M *COP^*PFC*p . 

SP01P70 

K1:K] ♦K'N'V- 

SPD17P0 

K7 = K?* 1 

SPOlpPO 

r n ►' t t mi ir 

SPC1 300 

TO^CO 

SPD1310 

font tmijp 

S°D 1 3?o 

rn^TTMi if 

S°Dl 330 

IF Pp Tp 170 

SD0134O 

6(_DH/' 1 =P/P . 

SPD13.S0 

T P r T P ♦ 1 

SPD1360 

QR:F ? 

SP01370 

TF (A°F ni~ n .9) ,l c # 0#001) ^0 TO no 

S°D13P0 

pp to in 

'SPD13Q0 

ALPPn = P/P . 

5PD1400 

np jo no 

SPOlMfl 

MnW4? = M_PH a 1 

5PD14P0 

At_P*-‘ A= ^L DP A?-TFMP*\/VI l*V*>|!* A|_PH A*l 

SPDl 430 

DMlC-a^pHA? 

SPOl 440 

O F T l_t P M 

SPD14S0 
SPDl 460 

FMP 

SPOl 470. 

fiipoomtI^f tnovfl ( yr # v , v j , y j # 7j ,p j, p? 

# OH0V«PHX.TtlUc>HY« ISYM,K|OPOf IMO 10 

1 MF inuj ) 

IND ?0 

TO po^PtiTF ThF TN’PCCFn VFL r CITTFc our 

TP. JFT SNTPAIMmFNT TND 30 

OTVFVnTON V7(?l* VY(?). WY(~) 

TNO 40 

ro MMOM / JFT / Dm ,yC,Y (71 ) ,A (31 ) « c (31 ) 

IMn FO 

DFjrT 

IND 60 

m=i 

IMP 7 0 

tf ( Morn . fo. 1 ) i p = ? 

IND PO 

V7 (?)SC, 

imp op 

vy (7) =0. 

IMO 100 

vvnno. 

inn no 

FPJsSO'PT (PFJ) 

i» n no 

XP= < XP-X J) /PJ 

IND 130 

MOOTr T ^YW* 1 

IMP 140 

no 40 Ks],MCO!T 

IMP ISO 

v y (K)sO* 

IND no 

VY (K 1=0 • 

IMP 170 

V7 (K]=n, 

ind no 

T r (Y.FP.11 Fp = 1 # 

IND no 
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T r (K.cr.?) f r = imp 

no 40 KK=i,Lff ino 

IF fK*.F0.1) 7C = 7J XND 

TF (Kk'.FC.?) 7r = -{7J + ?.<>HFT0HT) - |Nn 

pp= 50DT (7C^7r+ ( yofC-YJ) »*?) / cj XNO 

r\sc:npT( (XP-yrj*tt? + P?»DP#op) ind 

r?5PPPT(yp««p+P"ttpp#pp] i no 

G10= (VP-yC) /Fl-vn/F ? IND 

*?n*]./Fl-l./F? TND 

SUMP=- ( A (1 ) *Q n ) *yo ) *«1 o /pp.P?»pp«R ( i) IND 

c iivx = f& (n+P(n»yp)^F2n-P(i)»c-i r ‘^F(n*fiL n ^{(y°-yc*Fi)/(XB*F?)) ind 

T r ( U • LF *0,01 ) r.p to ?n INO 

J=P * IND 

<;ilM1 rqtJMQ XMO 

F|JMp = cijMX INO 

r x acpoT ( ( x n • v ( j j ) ** 5 ♦ p p »oc # q o j XNO 

c ?r?0fT( (yp-y (,1-1 )'){v*p + P?ttrcflOO) . X M D 

Rls (XP-y ( J) ) /FI - f vp-x ( J-1 n /F? INO 

«?r1 ,/FI-l ./F? . IND 

^ttMp-qtiMO- ( A ( J) + P ( J) *xF ) «r.\ / pp.p?tt00«p ( J) IMD 

^ilvysctiMx* (A ( J) + p ( J) *yP) ( J) ♦<? ( *4l,rfi( <x«-x ( j) 4F1 ) / (xp-y (JIMO 

l-n+F?)) ind 

TF (J.PF.31) <?o to 30 IMD 

J = J+1 IND 

on td in XND 

FtiNP=Fto-*c + n # 3?* ( l . « ( yn-x O /FI ) /cp , IND 

cijMx=SU^y-n, 7p /F | Ind 

oupy=<;p j*n # ?c*cii»'p*7r/(Dpfl‘Pj) XND 

pMY=-FPj*n.?p»ciiwcfl.(Y-Yj^pr:)/( Dq<fp J) IMD 

ouy = .<;pj«r,? c <»cti^y INO 

vX(K)rPwy/? # *\/y(K'j XND 

VY(K')=PMY/? # *VV(|<) XND 

\/7 (K) =PHPV/P ,+\/7 (*) IND 

PMp v -v7M)o''7(?) INO 

°WX = VX (1 ) *VX (?) IND 

OWy-\/Y ( 1 ) +VY (?) IND 

PFTIJPM TND 

IND 

FMP IMD 

OVFPL4V (iicBXPF # c,o) LCD 

pooopA" l.OAO LOO 

TO FVflL IIATP THF fiFCprwAMTr CH * P A C T F P I r T I C ? LOD 

DTMFMFIDN DA ( 30 ). C c FML ( ?n ) • ^*(30). FAMjf^oO), OAMwi(XOO)* GAMW?(L0D 
linn) LOO 

common /ofdm/ halfcw • xCP (?oo > , vcp (? oo).7CP(?nn),XLF(5n)fYLF(5n)*xTLon 
lF( c n),PSI(?0),rM(QO),X'M?PO),YV(10n),SM( q tF),XN(300f?),YN(?no,2) « 7L0D 
2N(?on,2) • WIDTH (P ) ,YCON (?<=) ,PV*FFP ( = n) ,HALFP ,CJ (?) ,fl) r Fx (05,?) ,TX (QFLOD 
3«?)*SC(l*0«S)*FT(lfn, c )fLCH) LOO 

COMMON / Ap PO / Awl , AM? , Pl ,c? . Cl (TO ) ,TT ( 3n ) , CP HO ) *C*AM (£ • 1 00 ) LOP 
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in 


rnwuQM /cnN'ST/ ( p i ^cj^rjfC),i.acT,Mjvii(3,5) ,jldd 

lPANFL.MJJ(F) • M-’H) LOD 

COmmcm /°apa»v ALPT* ALPC.Al Dc,rnF.<;nF*TH,TnF,V6PC f HEIGHT,ATT LOD 

chmmom /schf^f/ rc?i'X<in,4n.v(in f Ai) .flopf(1M .xl (?. 15 ) *xtt(4i ) ,lod 

lXLLCM) LOp 

COMMON /ADD/ CP(IOO) .CM(30) ,PPFAK (O) •^VJP(8*15) fGALOO) . I SYM • VMiw VULOD 
1 •TFMD # FCP,CAM|.FD ,CA^LFT#CA^TFO,CAMTCT,xj,YJ,7J f PJ» ALP f CRFF f TwTSTP LOD 
COMMqm /COST / L total. IP &M *LP ANFL . TF*t n ,LPAN? ,FX TT , PT I AL.TuLOD 

1TST.PF <M .WFP LOD 

FI=3.1M ce ??6* LOD 

P C VTND 02 LOn 

pfad f n p ) (GAwj(j) .J = 1 .LTotad LOP 

no 10 1 = 1 . L p amfl. lop 

0AMW1 ( I ) =GAM U « I ) *AL°C LOD 

PAWV? ( I) =PAm (7. I ) *Alf>C LOD 

ALPNsALP*! PO # / D T LOD 


WOTTF (6,360) 

WP T TF (6,7F0) A|_ PH 

WO T t F (*,340) 
7JFT=YC0M(?M 
Ti jcp = yC0M ( 24 ) 

TTNsvcON (23) 

*Ac=0L (30) 

NC = T FNTN 
OF Jr CDF 
CMU=C(1) 

CLT=0. 

cmt=o. 

CPT=0. 

CL'* ,= 0 . 

C m wt=o . 
rowso, 

CLWWrO . 

C M V- v, T = o . 

c o **• v = n . 

KCr 1 

MCOL = M 1 ( 1 ) 

*LL = n 
MM-n 

!U = 1 

IF F.O) TM=7 

TF (My o, .NF.M U' = ? 

NW? = NW ( 1 ) ♦ MW ( 2 ) 

NWT=MW (2 ) ♦MW (3) 

NCW1 =NCVU1 
ML = 1 

no 170 >T = 1 *MCS 

TF (NW (21 .FO.m 00 TO 30 

TT=T+MCF 


LOD 

LOD 

LOP 

LOP 

LOD 

LOP 

LOD 

LOD 

LOD 

LOD 

LOD 

LOD 

LOD 

LOP 

LOD 

LOD 

LOp 

LOD 

LOD 

LOD 

LOD 

LOP 

LOD 

LOP 

Lop 

LOD 

LOO 

LOP 

LOP 

LOD 

LOD 

LOP 

LOD 


1 1 n 
120 
130 
140 
ISO 
160 
170 
IPO 
19 0 
200 
210 
270 
730 
740 
250 
260 
270 
7R0 
?Qfl 
300 
310 
37 n 
330 
340 
3Fo 
360 
370 
3P0 
3°o 
400 
410 

4? 0 
430 
440 
4?0 
460 
47 n 
40 0 
4Q 0 
F 0 0 
*10 
f?o 

F30 
F40 
PFO 
F60 
*70 
FP 0 
*9 0 
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7 r (mw(3).^F.O) po to 

Lon 600 


C HpCOrOW ( I ) ♦CH (H) 

LOO 610 


no jo 40 

Lon 6?n 

?0 

TTI = T wrs 

LOD 630 


CHCPn=CH(l ) +Ch< TT) +CV( TIT) 

. LOO 640 


00 TO 40 

LOD 650 

->0 

CH0PO = rw ( T ) 

LOD 660 

40 

COK'T \ Mt|F 

LOD 670 


cn=o. 

LOD 6P0 


cl <n=o. 

LOD 690 


cnm=o. 

LOD 700 


OA (T)=0. 

LOD 710 


r»*uso. 

LOD 7?0 


rp«vLfi)=o, 

LOD 730 


r^wwrsn . 

LOD 740 


x ( 4 * r ) =n . 

LOD 7 C 0 


y (ft T>*n. 

LOD 760 


y ( 7 • T ) s * • 

LOD 770 


no i=o J = 1 • NO' 

LOD 7po 


NMsJ+mm 

LOD 700 


TP (WMf?)*FO.O) *P to ao 

LOD POO 


TP (J.LF.NW(l) ) or TO AO 

LOD *10 


TP (J.OT.NW5) 00 TP *o 

LOD 920 


LL=LP ^’1 «>'W (?) * (I-n ♦J-*'W 1 1) 

LOO P30 


IL = T I 

LOD *40 


JLL=J-^v»(l) • ' 

LOO *50 


L«? 

LOD *4n 


PMsN'.| (5) 

LOD «7n 


OP TO 7H 

LOD *PO 

c 0 

LL = l p&m"*K'W (3) * ( !-l ) +J-^v? 

LOD pro 


! L = T I ! 

LOD POO 


JLL=J-M* { ? 

LOD 910 


1.5*’ 

LOD 9 ? 0 


rM = N'v (3) 

LOD 930 


on to 70 

LOD 940 

6n 

LL=^ M 

LOD 9F 0 


T »=• T 

LOD 960 


JU.SJ 

LOD Q 7 o 


l.s 1 

LOD 9*0 


f* : = k u ( n 

LOn PPO 

70 

rpKT TMI tc 

LODI non 


vr= ( w (U ) -*L F ( T ) ) /C^OPn 

LODI oi o 


v <1 • J) =7Pn (xC) 

LODI o? o 


x (?• J) =7CT (XD 

LODI 03 0 


MJ = ft. 

Loni 040 


Ul=o. 

LODI o*o 


u?=n. 

LODI 06 n 


X F (MOPn.FQ.O) OP TO Q 0 

LOD ] 0 7 o 


o 

VI 

II 

o 

♦ 

LODI OPO 
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f7M fU .1 ) iHCTTWT 1 +7MU . 1 ) -P7 

CALL OACKVM (XW (Lt ) • YV (t I. ) *7n*;,L A c T . |_ p * tupi * P 1 , LP*M iLP**2 
llJJ.L ACT.WfJ.VJJ) 

CALI nArirwM ( X ' # { l.L ) ^ YV (LL) • 7TV *1. A?t « l PANJFL ,p 1 •LPAK'l ,LPAN? 
l,n?.n,Mf J.MJJ) 

IP ( TltPP ,mf, n # amp. TTr. . po. 0 } r . 0 TP p n 

CALL r ACKWM (XV a l ]«Y\/(LU .7rw.L A«t,LPAMFL*P1 *LPAN1 , LP an? 
1,111 

on to cn 
HI =1'? 

OONT TM| l r 

RPSsCo (Lt ) * ( 1 . ♦HJ) ( Jl L .U ( u 1 / (P ,*P*M 
woc-^dM ( i «li. ) *cr f JU *t. ) *ru ( tl ) *alpc* (1 ) /FM 

wftc-GiM ( ^ . L I- ) *cv ( JL L • (_ ) ( TL) **L c O* M • ♦(*?) /FN 

ro(U)=rPfLtPfi , ♦ 1 * J ) 

ft AM f P.l.U =C*A^ ( ?,LL ) * ( 1 .HI?) 

TP (PP(N'L) • t p • o # no i ) or to ion 
TP (ottm .LP.n.i ) or to i 3 0 
TP f r*M (?) .pc # n) rr to 1 30 

TP (LI .OP. M JVM n«wt. ) •AVP*! » .1 F. m JVO(?,mu ) p O TO 1?0 

CAM-y ( 1 , J) - ( y ( 1 . j) «x (?• J)) * V V (I 1. ) /HALFO 

FPH AsyI.L ( T ) - AT ak (OAM) 

rs=COP(P°MA) 

FS = c TM (FDM A ) 
on TO 140 

tp ( f, w(?) .Vf.P.Mf.f l.lp j ^Afi) 00 to inn - 

TP (*!'■' ni . f! P.n.AKO. Lt. I P.LPAf?) c-o TO 1 n 0 

c P = n I. ( T ) *np fr-u 

raHrxfl,j)-(yM.j)-y(P,j))«yy(LL)/HfiPP 
FP=FO-AT4H (0 t(^ ^ 

0 F — 0 0 F ( PP) 
ff = f in ( rp ) 

O0 TA \ L n 

TP (U. .PP.MJkl P.| 1 . .lp. m J*P(?,mu ) OO TO l?0 

00 TA ] p 0 

rnKTTvt'P 

r[. ( t j =ci. ( T ) + r p c * r c 

sOml-(!pc« vv f | | ) *of 
aa ( T ) =ro ( r 1 +nn c«cc 
r a n > -r & ( t ) *upc<voc 
rMi.--r*n,i-i.*pc*YV nt) *0? 

OPCV|_ ( T ) =-OPP’*JI_ ( T ) * '4,0 F»c<; 

X (4 • T ) =Y (4 , T ) +VfiC*C? 
c , *v , w=r M ut.i-N/jc*y>/ ( 1 1 ) # r s 
X ( 0 , 1 ) =x (0,T) ♦ w A f « c c 
CPNT T H H r 

CAW(_ r = C6HLP p -(P fiM LP c -P^LPT)oYLP(T)/HAL^ D 
fdi-a = vLl ( J ) -ATfi** (0/U‘LP ) 
y ( i . mo’J 1 ) =r re ( cci-a ) 


LODinqo 

* Nw, gam J* LODI jnn 
LOP! no 

,NW*OAHW?LODll?0 
LODH30 
LODI 140 

,NW.o,AMwiLOnn c Sn 
LODI 1 ft 0 
LODI 170 
LODI IPO 
LODI IPO 
LODI ?00 
LODI ? 1 0 
LODI ??0 
LODl?30 
LODl ?40 
LODI ?5 0 
Looia^n 
lodi?7o 
L0D12P0 
LOD12O0 
LODl 300 
LODI 310 
LODl 3? 0 
LODl 330 
LODl 340 
LOO 1 35 0 
LODl 360 
LODl 370 
L0013P0 
LODl 390 
LODl 40 0 
L 0 D 1 4 1 0 
LODl 4P0 
LODl 430 
LODl 44 P 
LOP 1 4 R 0 
LODl 460 
LODl 470 
LOP 1 4p n 
LOD 1490 
LODl f n 0 
LODl PI 0 
LODl 5? 0 
LOD1530 
LODl c 4 n 
LOD 1 0 
LODl 560 
LODl 57 0 
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Y (rci-f.) 

LOPl fp o 


PL / T ) = r L ( T ) *<= t /n- r ^r *fT (T)*v i? 9 rc^} ) 

LrtoiPPP 


o u {T)=r^i..^Dj/frrrp.3rHron 1 

LOP16O0 


rn(T)=rr(T)*PT/rt-rpn-rT(f)*x <1 ,r rvi ) 

L001610 


rA(T)=r&(I)*OT/rH0C;p4yTF(T)»X(p^rwi) 

LOP16P0 


MJ ( T l sC MW * p T / ( rr:rr-»rwncn ^ 

LODI 63 0 


( T ) =rocwL f T ) *p T /C^Onr-v TF f t ) ^ ( 1 ,M01 ) 

LOO 1 64 o 


x (4, n = x (4 ,T ) «pt /rt*ni;r) + y T ) «x (?f *TH ) 

L0P16?n 


x (7, n =c m w*p r / rroFF*r<-rcr j 

LOO 1660 


X(f, n = y (f ,1 )*oi/fi"OQri-x ( c « T ) * y n , •>TV1 ) 

LOP 1 67 0 


T c (T.LT.Mfnu r-o TO UP 

L0P16P0 


*LL sMrn L-l 

LOP16PP 


xr = Kr*l 

LOP 1700 


vcc i =^cni (*r > -i 

LOP1710 

1*0 

*L = T -^LL 

Loni7?n 


FM-V | (K-f) 

LOP 1730 


A arfuppnocj ( *(_ .Kf ) ^Iv TTTh (^0) /pw 

LOO 1 740 


rLT = <"L T *CL ( T 1 * a fi 

L0017FP 


rMIrOMT + fM / I ) * Afl 

LOO] 760 


COT=onT*rc ( t ) a 

LOP 1 77 n 


f*L W r CL v * C A ( T )^M 

L0D17PP 


r v VT = C M V'T* AW ( T ) *A A 

Lon 1 7Q n 


rr»»rc p, * + rp<:wi. ( t ) *& a 

LOPiPno 


ri_ «.<u- =CL W w + x(4*ti*aa 

LOPlPin 


r m w w t s o k « m w t + x (7.T) *aa 

LOPIPPO 


rnwt**rm*v+y (6 , r j a 

L001P?n 


MM- f Mf V.-NV1) *1 

LOPl P40 


T r fLL.Fr.Mjv? (Tii.f^m ^l = fc L*1 

LODiPSn 

170 


L0P1P6P 


0LT=rLT*PI/(?.*W4LFPw) 

L0P1P7P 


CMTsfMTttpT / (?.*w A | c c ».< ) 

LOniPPD 


rnr = cnT-!>pi / ( ? . *uai ccyj 

LOpi poo 


rorL? = mT/ (Clt*clt) 

LOnicoP 


ri.V'sri 'f*PT / ( " . ohai.ffv) 

LOni’Ql n 


OMViTrCMVTc-o T / { ? • t( CC*-( ) 

LOPiopn 


C n w rroMopy / f ? # *uai ? c v j 

L0D1Q3P 


rL Ui v=rL!* !! «* D T / ( ?. ou At ccv ) 

LOP 1 Q4 n 


r'-H'ViTrf M|.mT*D T / ( ? # 4W At. PCi..) 

LOP 1 P c 0 


r 1 ^ v v =p p v '*• * c t / ( ? # a i r c v ) 

LOPl Q^n 


tp ( OL'-r-i .LF . n . nni ) pn tp i on 

L0PiQ7n 


fm. L 5 = rr> v , 't/ ( cl *CLnv ) 

LOPl QPO 


ro tp ion 

LOP 1 9 Q n 

1 Q 0 

rni,.j ? = n, 

LOP?non 

l on 

rPN’T T M l!P 

L0p?0 1 o 


mpttf ( a . 3 t n ) 

LOP?n?o 


^t=n 

LOp?o?n 


.U1 =0 

L0P?04n 


pp ?7p T=1* M CS 

L 0 P ? 0 F 0 


-ip (K?w (?) # po . n ) r-n t a pjo 

LCPP060 
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T T = T ♦ ►'OF 

L00PO7D 


TF f ►’»•■'( 3 ). ►■F . n ) rp TO 30 0 

LOPpnPo 


OMppOrOW (T ) ♦fH ( T T ) 

LOPPOQo 


on jo 330 

Loopinn 

?n o 

TT T=T T +NOS 

LOO? 1 1 0 


chopo=ch ( t ) ♦ r*- (TT) * r t x r ) 

LOO? 1 ? 0 


on TA 730 

LOO? 1 3 o 

31 o 

rMpcn=fH ( r ) 

LOO? 1 4 0 

33 0 

f OVT T *-t 1 IF 

Lon?x^o 


no 3*n J = t.*T‘- 

LOO? 1 60 


JJ=JJ1 +J 

L00?l7n 


* * = K 1 <► J 

LOO? 160 


T F |‘*W|' 3 ) on TO 7 4. o 

LOP? t Q 0 


Tr ( 1*1^ ( n ) on TO 340 

LOP??on 


TF (J-OT^'V?) on TA 37 0 

L0P2? 1 0 


LL=I ♦ N‘f ( P) # ( T-l ) ♦ J-M*' ( 1 ) 

LOP???0 


no to 3=0 

L0P??3 0 

370 

Lt.rL PAK'P *M»*» ( 3 ) * ( T _ 1 ) + J-M.»7 

lop??4o 


no TO 7=n 

LOP2?*0 

34 0 

LL=JJ 

L0P??6n 

7=0 

PO^T T 'F 

L0D?P7 o 


yT = (yv(l_L)-*L F f j j ) /OhOFO 

loo??po 


FT&rYV (LI- 1 / U £|.FP 

LPP??9n 


C° '»’ = ?• A-r-iM (? ,i l ) *M_°o 

Lon??no 

3*0 

wpttf (*,?«n) .y I .ft a *rp (LL ) »rpv' 

L0023in 


JJ 1 = (MO-'-f'W? ) * T 

L00?320 


w'l = k 1 ♦rc i i | 

LOP?330 

370 

fONT TMIIF 

LOP?340 


M o T T F (*,700) 

LOP?3*0 


no 7 7 0 T r 1 , M 0 F 

L00?3f 0 


V = = YL= ( I ) /M/\| Fa 

L0P??7 o 

30 0 

mo t tf (*,400) v= ,CL 1 1 ) .C M ( n ( T ) ,rr ( V (4, n , X (7, X) *y (ft, T ) 

L0P?7fi o 


l JP T T = (6,410) n.T 

LOrp^oo 


WPTTF ft *430) OAT 

LPP?40n 


>.)D I JF (f , 470 ) mot. 3 

L00?4 1 0 


>,i D T T F (*.440) rv T 

L00?4?n 


TF ( Ti|C a # FP, 0) no TO 33 0 

L0n?4?n 


T F (7.JFT .rT.0,01 ) 00 TO 7^0 

L OP ? 4 4 0 


cnrj-cTh'(rFj) 

LOD?4=o 


o n Fj = roc (ofj) 

L0P3460 


rLD = OM|!*C TV (TF J* A| P) 

L0P?47n 


cnp-cmi* (v**M-roc (f 7J*AI_P) ) 

L0O?4P0 


r==00= (TOF) 

LOP?490 


FF=F XM (TOF) 

lod?=oo 


TF (MMJ.FO.l) 0OD = .C^IJ*C r = (DF J + 6LP ) 

LOPP510 


TJr ( MF J ♦ 1 ) / 3 — 1 

Lon?=?o 


TF (TqvM.FO.O) TJ=N=J/3-l 

LOP?=30 


T F ( V'j { 7 ) ,NF . 0 ) r-0 TO 39n 

LOP?F40 


TF (MW(?),FO t nj 00 TO 700 

LOD?=50 
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T7 = KC c* LCDP^AO 

K.| = M,ji.ii (?*► JP) LODP570 

M\! = K'W (?) LOOP^PO 

r,n rn ?i n e LODP590 

T7 = N Pf*F* (3,MJP) -L , /KV! (3) *1 LOOP AO 0 

KJ=mjv] (3,MJP) LOD2610 

NMs*U(3) LOOPfPO 

FP TP 3] o LOD2630 

T 7 = L F f 1 > LODP640 

^jsmjwi n , mjp) LonpAsn 

MNs*W(l) LOD?6f n 

rnt ttmiif LODPA70 

LOD?APO 

pp ^?a t=] , t j LOn ?A9n 

y^tp=y^(kj.?)-vk (Kj,n Lon?7oo 

C 1 *] ar?M *YnTPAT^TK^ Jw ( f J c ) )*{ ( X L F (T7)*C M (T7)»CF) *SnFJ-CW ( T 7 ) *SF*CLPD?7 1 0 


X nrj) 

T7=!7+l 

rWD = -r»‘ ! oCMlVCCfF 

TF (NMJ.NF.1) VDTTF (A4CP) ^ C 

TF (WMj.pp.l) i^TTF < A , 4A0 ) CL& 

tf (hmj.mf. 1) voyrc (A, 470) rro 

TF (MMj.FP.l) ImOTTF (£.430) CTO 

IF (PFJ.LF.O.OO) ) PP TP 770 
Tf (MMJ.K‘F.1) WPTTF (A, f 4G0) CYP 

T r (WMj,Fn,l) WPTTF (^,^ 00 ) CMP 

CO^T T^'IJF 

TF (TtlFP.MF.O) pp TO 340 

wpttf ( a * f l n ) r t w 

WDTTF (A.F^O) PPV 
'»DTTF (A. CTO) C m VT 
PONT TM|lF 

WDTTF ( A * c 4 0 ) H t-w 
wdttf (A.ccn) rrvw 

UDTTC ( A 4 c A 0 ) pvi. VT 
WDTTF ( A * c 7 o ) rr'i,.| ? 

DFTPOM 


LODP7? 0 
L0DP730 
LODP740 
L0D27F0 
L00P7A0 
LOOP770 
LOO27P0 
L0D27Q0 
LODPPnn 
Uon?PT n 
Lonpppn 
L002P30 
L.ODPP40 
LODPPFn 
LOP?PAO 
UP 02P70 
LOOpPPP 
L0P2PP0 
LOD2QOO 
LOnpqin 
LOn?Q?0 
LOn?Q3n 
LOOPQ40 
LODpqpn 
L0D?9A0 
Lnn?Q7n 
LODp^po 


format ( ] wn«?Ay , tnalfwa = « f ] o . ■* • 3 y , 7 Mpfpoffc ) L0n?9 c n 

foc^at (]Hn.poy,4pwxvyyyYYxyxx Y vyyvyyxTyxYyxxyYXXXXXxxxxXYX) L00?9An 

fprmat nH0*?x .AMVODTEX • 14y *PHXV# 17X,PHVV # T<5X »PHCP»iqx *3HCPW) LH0PQ70 

Fprmat f Ay ,T3.i (1 ox *F 1 o # c, ) LODp^po 

Fnp^aT ( 1M0#QX • 4WV /FP, 1 1 X, Ph CL . 1 3X ,?Wf k A 1 ?x. P'-'CT, 1 3x , 3PCDI • 1 P X • 3WCL0D?Q9 0 

1 Lw , l px , i px ,pwrcw ) L0D3 00 0 

format (fl(cy,Pin,K ) ) LOP301P 

format (lwn,??>-TwF lift cpfff i r t FN t =«Fjn # F> L.0D30P0 

FORMAT ( 1 WO , 7PWTOT M_ T^PnrFP PROP CPFFFT CT^L'T = * F 1 0 • 5 ) LOP3030 

format (1ho,p*»vtwf p nrrm prag paramftfr = • F i o * ^ > LOP304o 


125 


44 0 

FOpM AT 

4R 0 

= or»> AT 

4f 0 

FPPt* AT 
1 . c ) 

470 

FORMAT 

4 P 0 

POPM AT 
1 .R) 

4P0 

FORMAT 

ano 

FOPM AT 
!• CMJ = 

C 1 0 

focm a t 

i-.n 

c?n 

F P C M A T 
IT A{ o M F 

CIO 

FORMAT 

lMr^■T A L' 

S 4 0 

frpmat 

C S0 

format 
10. c ) 

CAP 

FORM AT 
1 • F 1 0 . c ) 

= 7 0 

FORMAT 


( 1 HO , ?cutpt DTTrt-v ft upMpf:T coffrtCTEM =«F10 # 5) 1-0030^0 

roA^-oa i tft rrFFFTCTFM T# etc =,fio. c ) Lon3nfo 

(1W0,47WT^F LIFT roFrpiHFNT mF to JFT PEAfTTON* CLJ = .F 1 OLOP3 07 0 

L0030PO 

MN0,?4HTPF CCA^Pa n n A G rrFFFICTFKT, COP =,F!0.5l LOD3090 

( t m n , d 7 uthF rc.^r rnFFFICTFM PHF to jft reaction, CPJ =*FinlOD3inn 

LOD3 1 1 ft 

(lHO^AHTHF CHAMPA “C^Ff'T rOPPFTC TFK-t # cyp - , f \ 0 . *5 ) L0031?0 

(lhfl.cQ^TWF CTTCHTNT- K’O^FK'T COFFFJ r T ENT PUE TO JET PE ACT ICNL003 1 3 0 
• LOD3140 

( 1 mo , ?y , 4 Chthf LTTT rrF«rr T o T FK:T with JFT ENTRAINMENT ai_ONF LOimSO 
) LO03140 

M u n • ?x .C7UTUF T * : n 1 1 r f p no/\f. GOFff T 0 T FMT WITH JET FNTP ATN*‘F*'LOD3 17n 
=« r l n . c ) L0031*P 

( inn . ?y , ^omtht PlTTHir-F roFFP TGTFf 1 T WITH JET EMTPA TNLOP3190 

P K! E =* F !0. C ) L00320P 

flHO,Aru T HF |. TFT rorrririFNT FOR THF w^G AL0NF= . F 1 0 * R ) L003?lO 

(Iwo.aphtuf TMPUfFr rRAR CCfff I C t ENT FOP THE WING A LCNF = , Fl LO032F 0 

L003230 

(IH0,cihthF PTTC^T^'P >-‘C m FNT COFFFlCtEM FOR THF WING AL0NE=L0n3?4 0 

L0P32 q 0 

( 1 H 0 * 4 ahthf TNOUCPP PPAG papahftfp pop THE wing ALONE = ,FXO*LOD3F6P 

L003270 

L0032PP- 


l c ) 

FMp 

FUPPPV'TTNF PAO*<UW 
1 »^TJi w JJ ) 


FUPPPV'TTNF PAC^VH (X •V,7 # ^ACT,I..PAKFL*P1 tLPANl *tPAM? f NW* GAMMA ,VX« JLRCH 1 P 
l^TJ,wjj) * RCH ?0 

p CH 3 P 

TO FVALUATP TW = AFH of^ THF wp'O nup TO TMAOF VOPTEX SYSTEMS RCH 40 

nt^FMcirK vw ( n , GAmma(I), ;•(?), KJUU MJJ(l) RCH *0 

rn»Mov / G F o m / pa; [ FPW,xCP (POO ) . yrp (?PO) # 7CP (?00) *XLE (RO) *YLE ( SO) « XT RCH 60 
IE (CO) ,PPI (?0) ,0“ (Q c ) ,y V (FOP) ,YV (I 00) «SM(R«0) ♦ XN {?00,2) fYN (?P0*2) *7RCH To 
.wTOTp ( c ) , yrOK- ( ? = ) ,cwFfo(EO) •H*LP Q »9J(?lt8) ,EX (<95,F) ♦TX ( Q E RCH PP 
3 • F ) •sr(I' t P* c ) * c t ( 1 £ 0 « R i *L0(3) RCH PO 

dt = 3 . 1 41 sc?^ c RCH I 0 o 

TCrw=t_DAMFL. RCH HP 

T c (JL. EG. LAST) topm-sLAPT RCH 1?P 

TA=?*(LAST-loamfi ) RCH 1 3 P 

TP=L AS T -l. p AN'C’L RCH 140 

*7 = 1 RCH 1 c 0 

TPF=V RCH 160 

1^.3] RCH 170 
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